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HISOFT PASCAL 4 - VERSION 1-4 


New Features & Bug Fixes 


The release number of Hisoft Pascal 4D and Hisoft Pascal ЧТ is 
now 1-4, effective from October 1982. 


The differences between the previous version of Hisoft Pascal 
and version 1-4 are given bellow: 


1. А bug in the evaluation of expressions (which led to 
expressions like 1+S@R(2) being incorrectly evaluated) has 
been corrected. 


в А bug іп the evaluation of expressions (which led to 
expressions like I+(I+l) being incorrectly evaluated) has 
been corrected. 


3- A bug that caused the incorrect evaluation of the result 
of an integer-to-real comparison has been corrected. 


ц. *xHisoft Pascal HT оп1у: жж the documented bug in the editor 
"5! sub-command (see page 38 of the Programmer's Manual) 
has been corrected - 'S' can now be used at any time. 


5. *xHisoft Pascal HT оп1у: жж using the 'F' command from within 
the editor to find a character string now positions the 
editing cursor at the beginning of any found occurence of 
the string of pages 3? and 38 of the Programmer's Manual. 


b. *xHisoft Pascal ЧТ only:** a new editor command has been 
incorporated. The 'X' command displays. in hexadecimal, 
the current end address of the compiler. This information 
allous the user to make a working copy of the compiler and 
thus minimizes the danger of corrupting the master tape. 
** Note that you are authorised by HISOFT to make only one 
working copy of НРЧТ.жж To make a working сору. first find 
the start address of the package from your Implementation 
Note and then find the end address using the 'X' command. 
Nou use the relevant operating system command to dump 
this block of memory to tape. Note that you will not use 
the НРЧТ loader to load the compiler екс. When saved in 
this way - instead you should use the relevant operating 
system load-from-tape command and then execute a cold 
start into the editor as given in your Implementation 
Note. 


ЖЖҚоғе:жж ZX SPECTRUM users cannot use the above method of 
making a copy and should consult their Implementation Note for 
details of making a working copy of НРЧТ. 


As usual. Hisoft welcomes any queries concerning this note. 


High quality microcomputer S$ OF Тышы а г е... 


HISOFT PASCAL 4T - VERSION 1-5 


As from 1 April 1983- the version number of Hisoft Pascal HT 
will be 1.5. Owners of previous versions of HP4T may upgrade 
to version 1-5 by returning their old tape together with a 
handling charge of pound 3 + VAT- The differences between 
version 1-4 and version 1-5 are as follows: 


1. Functions may now return a POINTER result. 


в. A bug in the pre-defined procedure NEW which occasionally 
resulted in the incorrect allocation of memory for a 
dynamic variable has been fixed. 


3. А new editor command has been incorporated. The 'V' 
command takes no arguments and simply displays the current 
default values of the line range. the Find string and the 
Substitute string- The current default line range is shown 
first followed by the two strings (which may be empty) on 
separate lines- It should be remembered that certain 
editor commands (like 'D' and 'N'!) do not use these 
default values but must have values specified on the 
command line - see the НРЧТ Programmers Manual. 


4. жж7Х SPECTRUM only** Тһе 'Include' option ("5Е" see 
Section 3-2 of the HPHT Programmer's Manual) is now 
available on the ZX SPECTRUM version of НРЧТ. If you wish 
to use this option then the source text that is to be 
subsequently 'included' xxmustxx be dumped out using a 
new editor commands the 'U' command (SPECTRUM only). 

'U' works exactly like 'P' except that it does not dump out 
in HP4T standard tape format and it begins to save the 

text to tape immediately the command line is terminated 

- thus you must have the tape recorder in RECORD mode 
before typing ENTER at the end of the command line- When 
dumping text out using 'U' or reading text in using the 

'F' compiler options then you may use the BREAK key at any 
times the use of this key will return you to the editor. 


Note that, if you wish to read in text from the editor via 
the editor's 'G' commands then the text must have been 
dumped out using 'P' and жжпоёжж 'y'. 

Example of use: 

To write out a section of a program use: 


W50,120,PLOT swrite out the PLOT procedure. 


To ‘include’ the section in another program: 


100 ЕМІ: 

110 

1200 (жеҒ PLOT ‘include’ the PLOT procedure һеге.ж) 
130 

140 PROCEDURE MORES (xthe rest of program.*) 


150 


Hisoft hope that the above improvements and correction will 
enhance the use of HPHT and. as usual. we welcome any 
correspondence regarding this document. 


D Preliminaries. 


D.D Getting Started 


Hisoft Pascal HT (НРЧТ) is a fast. easy-to-use and powerful 
version of the Pascal language as specified in the Pascal 
User Manual and Report (Jensen/Wirth Second Edition). 
Omissions from the specification are as follows: 


FILEs are not implemented although variables may be 
stored on tape. 

A RECORD type may not have a VARIANT part. 

PROCEDUREs and FUNCTIONs are not valid as parameters. 


Many extra functions and procedures are included to reflect 
the changing environment in which compilers are used: among 
these are РОКЕ-РЕЕК-ТТМ-ТОЏТ and ADDR. 


The compiler occupies approximately 12K of storage while the 
runtimes take up roughly 4K. Both are supplied on cassette 
tape in the tape format used by the runtimes- All interfacing 
between HPHT and the host machine takes place through vectors 
conveniently placed at the start of the runtimes (see НРЧТ 
Alteration Guide) - this makes it easy for the user to write 
his own customised 1/0 routines if necessary. 


Hisoft Pascal HT uses various control codes. mostly within the 
editor. Of course, different systems can have very different 
keyboard designs and thus will have different ways of reaching 
control codes. In this manual the control characters used vill 
be referreded to as RETURN. СС- CHa CI+ СР. CS апа CX. The 
attached Implementation Note will tell you the corresponding 
keys for your system. 


Whenewer HPHT is waiting for a line of input. the control 
Characters can be used as follous: 


RETURN is used to terminate the line. 


СС returns to the editor. CAPS SHIFT 1 
CH deletes the last character typed. CAPS SHIFT O 
cI move to the next TAB position. CAPS SHIFT 8 
СР directs output to the printer (if available) 

or if output was going to the printer then 

it returns to the screen. WRITE (CHR (1b) ) 
СХ deletes the whole line typed so far-CAPS SHIFT 5 


A simple loader is also supplied in the package so that the 
user can load. from tapes data which has been recorded in 
НРЧТ format. 


Thus, to load the compiler and runtimes from the master tape 
supplied by Hisoft.i the user must first load the loader - when 
applicable this is supplied in a form suitable for loading 

by the user's operating system. If the user is unable to 
access the computer's operating system then the boot loader 
must be entered into the computer's memory directly either 
through the use of an assembler or a high level language such 
as BASIC - details of how to do this and a skeletal loader 


appear in the НРЧТ Alteration Guide. 


Once the loader has been executed it will proceed to search 
for a file recorded in НРЧТ tape format. When a file of this 
format has been found the loader will load the file into 
memory- If at any stage an error is detected while reading the 
tape a message will be diplayed - you must then rewind the 
tape to the beginning of the file and attempt to load it 
again- If you experience repeated errors then adjust the 
volume level on your tape recorder - if this is not successful 
then please return the tape to Hisoft and we will send you a 
replacement tape. 


Thus the loader will automatically load the compiler and 
runtimes into memory for you. 


Uhen the compiler has been successfully loaded it vill execute 
automatically and produce the message: 


Top of RAM? 


You should respond to this by either entering a positive 
decimal number up to 6553b (followed by RETURN) or by hitting 
RETURN (See Implementation Note). 


If you enter a number then this is taken to represent the 
highest RAM location + 1 otherwise the first non-RAM location 
is automatically computed. The compilers's stack is set to 
this value and thus you can reserve high memory locations 
(perhaps for extensions to the compiler) by deliberately 
giving a value less than the true top of RAM. In the ZX 
Spectrum version the 'true' top of RAM is taken to be start of 
the user-defined graphics area (UDG in the Sinclair manual). 


You will then be prompted with: 
Top of RAM for 'T' 


Here you can enter a decimal number or default to the 'Top of 
RAM' value previously specified. What you enter will be taken 
as the stack when the resultant object code is executed after 
using the editor 'T' command (See Section 4 for details). You 
will need to define a runtime stack different from the top of 
RAM if- for examples you have written extensions to the 
runtimes and wish to place them safely in high memory 
locations. 


Finally you will be asked: 
Table size? 


Uhat you enter here specifies the amount of memory to be 
allocated to the compiler's symbol table. 


Again. either enter a positive decimal number followed by 
RETURN or simply RETURN by itself in which case a default 
value of (available RAM divided by 1b) will be taken as the 
symbol table size. In nearly all cases the default value 
provides more than enough space for symbols. The symbol table 
may not extend above machine address #8000*(327b8& decimal). 
If you specify so large value that this happens then you vill 


be prompted again for 'Top of КАМ" etc. 


You mayı optionally. include an 'E' before the number after 
this prompt - if you do so then the internal line editor will 
not be retained for use by the compiler- So do this if you 
wish to use your own editor with the compiler (see HPHT 
Alteration Guide for details on how to do this). 


At this point the compiler and integral editor (if retained) 
will be relocated at the end of the symbol table and execution 
transferred to the supported editor. 


жжМоғе: throughout this Manual. the hash sign "и" (decimal 35; 
hexadecimal 23, shift '3') is replaced by the number sign on 
all systems which do not use U-K- ASCII. Numbers that are 
preceeded by this symbol are in hexadecimal. 


0.1 Scope of this manual. 


This manual is not intended to teach you Pascal* you are 
referred to the excellent books given in the Bibliograhpy if 
you are a newcomer to programming in Pascal. 


This manual is a reference document. detailing the particular 
features of Hisoft Pascal 4. 


Section 1 gives the syntax and the semantics expected by the 
compiler. 


Section 2 details the various predefined identifiers that are 
available within Hisoft Pascal Ч. from CONSTants to FUNCTIONS. 


Section 3 contains information on the various compiler options 
available and also on the format of comments. 


Section 4 shows how to use the line editor which is an 
integral part of HP4T5 if you do not wish to use this editor 
but want to interface your own editora then you should consult 
the НРЧТ Alteration Guide. 


The above Sections should be read carefully by all users. 


Appendix 1 details the error messages generated both by the 
compiler and the runtimes. 


Appendix 2 lists the predefined identifiers and reserved words. 


Appendix 3 gives details on the internal representation of 
data within Hisoft Pascal 4 - useful for programmers who wish 
to get their hands dirty. 


Appendix 4 gives some example Pascal programs - study this if 
you experience any problems in writing Hisoft Pascal 4 
programs. 


0-2 Compiling and Running. 


For details of how to creates amend. compile and run an НРЧТ 
program using the integral line editor see Section 4 of this 
manual- For information on what to do if you are using your 

own editor see the НРЧТ Alteration Guide. 


Once it has been invoked the compiler generates a listing of 
the form: 


xxxx nnnn text of source line 


where: 
xxxx is the address where the code generated by this 
line begins. 
nnnn is the line number with leading zeroes suppressed. 


If a line contains more than 80 characters then the compiler 
inserts new-line characters so that the length of a line is 
never more than 8D characters. 


The listing may be directed to a printer, if requiered: by the 
use of option 'P' if supported (see Section 3). 


You may pause the listing at any stage by pressing CS; 
subsequently use CC to return to the editor or any key to 
restart the listing. 


If an error is detected during the compilation then the 
message "ЖЕККОКЖ! will be displayed followed by an up-arrow 
('^') which points after the symbol which generated the error, 
and an error number (see Appendix 1). The listing will pause: 
hit 'E' to return to EDITOR to edit the line displayed. 'P' 

to return to the editor and edit the previous line (if it 
exists) or any other key to continue the compilation. 


If the program terminates incorrectly (e.g. without 'END-') 
then the message 'No more text' will be displayed and control 
returned to the editor. 


If the compiler runs out of table space then the message 

"Мо Table Space’ will be displayed and control returned to the 
editor. Normally the programmer will then save the program on 
tape. re-load the compiler and specify a larger 'Table size’ 
(see Section П.П). 


If the compilation terminates correctly but contained errors 
then the number of errors detected vill be displayed and the 
object code deleted. If the compilation is successful then the 
message 'Run?' will be displayed: if you desire an immediate 
run of the program then respond with 'Y'4 otherwise control 
will be returned to the editor. 


During a run of the object code various runtime error messages 
may be generated (see Appendix 1). You may suspend a run by 
using CS3 subsequently use СС to abort the run or any other 
key to resume the гип. 


0.3 Strong TYPEing. 


Different languages have different ways of ensuring that the 
user does not use an element of data in a manner which is 
inconsistent with its definition. 


At the one end of the scale there is machine code where no 
checks whatever are made on the TYPE of variable being 
referenced.Next we have a language like the Byte 'Tiny Pascal' 
in which character. integer and Boolean data may be freely 
mixed without generating errors. Further up the scale comes 
BASIC uhich distinguishes between numbers and strings anda 
sometimes, between integers and reals (perhaps using the 77! 
sign to denote integers). Then comes Pascal which goes as far 
as allowing distinct user-enumerated types. At the top of the 
scale (at present) is a language like ADA in which one can 
define differenti incompatible numeric types. 


There are basically two approaches used by Pascal 
implementations to strength of typingi structural equivalence 
or name equivalence. Hisoft Pascal 4 uses name equivalence 

for RECORDs and ARRAYs. The consequences of this are clarified 
in Section l - let suffice to give an example here’ say two 
variables are defined as follous: 


VAR A:ARRAYE'A' ..'C' TOF INTEGERS 
B:ARRAYE'A'..'C'T0F INTEGERS 


then one might be tempted to think that one could write A:=Bi 
but this would generate an error (ЖЕККОКж 10) under Hisoft 
Pascal 4 since two separate 'TYPE records!’ have been created 
by the above definitions. In other words. the user has not 
taken the decision that A and B should represent the same 
type of data- She/He could do this by: 


VAR А-В:АККАУГ"А".."С"Д OF INTEGERS 


and now the user can freely assign A to B and vice versa since 
only one 'TYPE record’ has been created. 


Although on the surface this name equivalence approach may 
seem a little complicated; in general it leads to fewer 
programming errors since it requires more initial thought from 
the programmer. 


1 Syntax & Semantics. 


This section details the syntax and the semantics of Hisoft 
Pascal H - unless otherwise stated the implementation is as 
specified in the Pascal User Manual and Report Second Edition 
(Jensen/Uirth). 


1.1 IDENTIFIER. 


--- letter «---- 
I I 
I I 
-25==--- > letter ------------------------------------ >- 
I I 
I I 
--- digit <----- 


Only the first 10 characters of an identifier are treated as 
significant. 


Identifiers may contain lower or upper case letters- Lower 
case is not converted to upper case so that the identifiers 
HELLO. HEL1o and hello are all different. Reserved words and 
predefinded identifiers may only be entered in upper case. 


1-2 UNSIGNED INTEGER. 


------- <-------- 
І І 
І I 
---------------- > digit ----------------------------->- 
1.3 UNSIGNED NUMBER. 
—————— «ә “с “с е. ene == >-------------------.-- 
І І 
І І 
T ega pasas >------ -> + -- I 
I I I I I I 
-> unsign.integ.---- >. -> digit -> E ------- > unsign-integ.-> 
I I I I I I 
І e <---- -> - -- І 
І І 
I |. ----------- <----------- І 
І І І І 
пен > # ------> hexadecimal digit ------------>----------- 


Integers have an absolute value less than or equal to 327?7b? in 
PASCAL H. Larger whole numbers are treated as reals. 


The mantissa of reals is 23 bits in length- The accuracy 
attained is therefore about 7 significant figures- Note that 
accuracy is lost if the result of a calculation is much less 
than the absolute values of its argument e.g. 2.00002 - 2 does 


not yield 0.00002. This is due to the inaccuracy involved in 
representing decimal fractions as binary fractions. It does 
not occur when integers of moderate size are represented as 
reals e.g. 200002 - 200000 = 2 exacly- 


The largest real available is 3-4E34& while the smallest is 
5.9Е-39. 


There is no point in using more than ? digits іп the mantissa 
when specifying reals since extra digits are ignored except 
for their place value. 


Uhen accuracy is important avoid leading zeroes since these 
count as one of the digits. Thus Q0-00012345b is represented 
less accurately than 1-2345bE-4. 


Hexadecimal numbers are available for programmers to specify 
memory addresses for assembly language linkage inter alia. 
Note that there must be at least one hexadecimal digit present 
after the '$'4 otherwise an error (ЖЕККОКЖ 51) will be 
generated. 


1-4 UNSIGNED CONSTANT. 


E > constant identifier ----------------- 
I I 
I----------- > unsigned number ----------- >I 
I I 
Тешне > NIL -255222-2222-2-2--2-225--2-2-- >I 
I I 
І  ------ <====-я25 І 
I I I I 
----- > ! -----> character ------> ! ------- 


Note that strings пау not contain more than 255 characters. 
String types are ARRAYL1--NI OF CHAR where N is an integer 
between 1 and 255 inclusive. Literal strings should not 
contain end-of-line characters (CHR(13)) - if they do then an 
"ЖЕККОКЖ БА" is generated. 


The characters available are the full expanded set of ASCII 
values with 25b elements. To maintain compatibility with 
Standard Pascal the null character is not represented as "i 
instead СНКСП) should be used. 


1.5 CONSTANT. 


mds. d^ эшш ---> constant identifier --- 
I I I I 


I I I I I I I 
I --> - --- ---» unsigned number ------- I I 
I I I 
I I I 
I  2-------- <------- І І 
І І І І І 
І------- >! -------- > character ------ > ! ------- I 
I I 
I I 
-------- > CHR ----> ( ----> constant ----> ) ------- 


The non-standard СНК construct is provided here so that 
constants may be used for control characters- In this case 
the constant in parentheses must be of type integer. 


Е.а. CONST bs=CHR(10)5 
cr=CHR(13)4 


1-6 SIMPLE TYPE. 


== шшш шшен > type identifier ------------------ >- 
I I 
I I 
I2-e---2---- > ( ------- > identifier ------- >) --->I 
I I I I 
I" —–е Е ЕЕ Dean сака ет I 
I I 
I I 
----- > constant -----> т----->-сопсбпап. -------- 
Scalar enumerated types (identifier. identifier. ...... ) may 


not have more than 25b elements. 


1.? TYPE. 


ihn ca la laa a > simple type ----------------------- >- 
I 


V I 

I I 

I«-- PACKED «-- 

I 

I 

I--» ARRAY -> Г --> simple type --> 1 -> OF -> type 
I I I 

I- yea es 3 <------ 

I 


I 
v 
F HH H H i iH H H H H H 


I------ > SET ------- > OF ------- > simple type ------- >I 
I I 
I I 
------- > RECORD ------> field list -------> ЕМ) ------- 


Тһе reserved word PACKED is accepted but ignored since packing 
already takes place for arrays of characters екс. The only 
case in which the packing of arrays would be advantageous is 
with an array of Booleans - but this is more naturally 
expressed as a set when packing is required. 


1.7.1 ARRAYs and SETs. 


The base type of а set may have up to 25b elements. This 
enables SETs of CHAR to be declared together with SETs of any 
user enumerated type. Notes however, that only subranges of 
integers can be used as base types. All subsets of integers 
are treated as sets of П..955. 


Full arrays of arrays. arrays of sets. records of sets etc. 
are supported. 


Two ARRAY types are only treated as equivalent if their 
definition stems from the same use of the reserved word ARRAY. 
Thus the following types are not egiuvalent: 


TYPE 
tablea 
tableb 


АККАҮГ1..1001 OF INTEGERS 
АККАҮГ1..1001 OF INTEGERS 


So a variable of type tablea may not be assigned to a variable 
of type tableb. This enables mistakes to be detected such as 
assigning two tables representing different data- The above 
restriction does not hold for the special case of arrays of a 
string type. since arrays of this type are always used to 
represent similar data. 


1.7.2 Pointers. 


Hisoft Pascal H allows the creation of dynamic variables 
through the use of the Standard Procedure NEU (see Section 2). 
A dynamic variables unlike a static variable which has memory 
Space allocated for it throughout the block in which it is 
declared. cannot be referenced directly through an identifier 
since it does not have an identifier: instead a pointer 
variable is used. This pointer variables which is a static 
variable. contains the address of the dynamic variable and the 
dynamic variable itself is accessed by including a '^' after 
the pointer variable. Examples of the use of pointer types can 
be studied in Appendix H. 

There are some restrictions on the use of pointers within 
Hisoft Pascal H. These are as follows: 

Pointers to types that have not been declared are not allowed. 
This does not prevent the construction of linked list 
structures since type definitions may contain pointers to 
themselves e.g. 


TYPE 
item = RECORD 
value : INTEGER 3 
next : ^item 
ENDS 
link = ^itemi 


Pointers to pointers are not allowed. 


Pointers to the same type are regarded as equivalent e-g- 


VAR 
first : links 
current : ^itemi 


The variables first and current are equivalent (i.e. 
structural equivalence is used) and may be assigned to each 
other or compared. 

The predefined constant NIL is supported and uhen this is 
assigned to a pointer variable then the pointer variable is 
deemed to contain no address. 


1.7.3 RECORDS. 


The implementation of RECORDs4 structured variables composed 
of a fixed number of constituents called fields; within Hisoft 
Pascal H is as Standard Pascal except that the variant part of 
the field list is not supported. 


Two RECORD types are only treated as equivalent if their 
declaration stems from the same occurrence of the reserved 
word RECORD see Section 1.7.1 above. 


The UITH statement may be used to access the different fields 
within a record in a more compact form. 


See Appendix 4 for an example of the use of WITH and RECORDS 
in general. 


1-8 FIELD LIST. 


- === === еш ке € e ав ез ев ез «е еш € «в € а 1 <----------------- 
І I 
ШЕШЕ нісін 1 <------- І 
І І І І 
->---------- > identifier ---> ---> type -------------- >- 
I I 
I I 
өз «е ез «еше өз € eee s m >--------------.-.-.-.-... 


Used іп conjunction with RECORDs see Section 1-7-4 above and 
Appendix H for an example. 


1-9 VARIABLE 


--> variable identifier -->-<------------ <----------------- 
І І І 


I I I 
->----- > field identifier ------- > Е --> expression --> 1 -->І 


I 
I 
I 
I I 
I--> а --> field identifier -->I 
I 
I 


Two kinds of variables are supported within Hisoft Pascal Hš 
static and dynamic variables. Static variables are explicitly 
declared through VAR and memory is allocated for them during 
the entire execution of the block in which they were declared. 


Dynamic variables. however, are created dynamically during 
program execution by the procedure NEU. They are not declared 
explicitly and cannot be referenced by an identifier. They 
are referenced indirectly by a static variable of type 
pointer, which contains the address of the dynamic variable. 


See section 1.7.28 and Section 2 for more details of the use 
of dynamic variables and Appendix 4 for an example. 


Uhen specifying elements of multi-dimensional arrays the 
programmer is not forced to use the same form of index 
Specification in the reference as was used in the declaration 
- this is a change from Hisoft Pascal 3. 

e-g- if a variable a is declared as 


АККАҮЕС1. . 1012 OF АККАҮГ2..101 OF INTEGER then either аГ11Г11 
or аГ1-11 may be used to access element (1-1) of the array. 


1-10 FACTOR. 


На аке SSS Soll SSS Sse Seas > unsigned constant ---------------- >- 


--> function identifier ---> ( --> expression --> ) --->I 


HiH HH HHHHHHHHHH 
HHH 
' 

' 
' 
' 
' 
v 
4 
' 
І 
І 
' 
' 
' 
' 
H 


I---> МОТ --------------- > factor ---------------------- >I 


To -------------------- >-------------------- І 


І I I I 
----> [ ---> expression ---> .. --> expression ----> 1 --- 
I I II 
To 2 Sa ie Se ZD os sss I 
I I 
———— ——— s “- > + ------------------- 


See EXPRESSION іп Section 1-13 апа FUNCTION in Section 3 for 
more details. 


1.11 TERM. 
===> factor --2---22--2----&5-2--2e--2----20-2-0--50-22--20-2--2-- >- 
I I I I I I 
I 
I + / DIV MOD AND 
I 
I I I I I I 


- factor <---------------------------- 


The lowerbound of a set is always zero and the set size is 
always the maximum of the base type of the set. Thus a 

SET OF CHAR always occupies 32 bytes (a possible 25b elements 
- опе bit for each element). Similarly a SET OF O--10 is 
equivalent to SET OF 0. .255. 


1.12 SIMPLE EXPRESSION. 


--> + --- 
І І 
SPSS SSeS sess > CORN ----2-2--2----2--245-2--o£25250-25--2525--22-22- >- 
I I I I I I 
==> ау === I 
I + т CR 
I 
I I I I 


The same comments made in Section 1.11 concerning sets apply 
to simple expressions. 


1-13 EXPRESSION. 


simple 
--» expression --------------------------------------------- >- 


I I I I I I I I 
I 

= <> < > <= >= IN I 
I 

I I I I I I I I 
-------------------------------- > simple -- 
expression 


When using IN. the set attributes are the full range of the 
type of the simple expression with the exception of integer 
arguments for which the attributes are taken as if [O--255] 
had been encountered. 


The above syntax applies when comparing strings of the same 
length. pointers and all scalar types. Sets may be compared 
using >=. <=, <> or =. Pointers may only be compared using = 
and <>. 


1-14 PARAMETER LIST. 


—— M ——— е. «в «в «в «в «е «е «е — —— — -- “- >----------------.-.----.-.-.-.-.-.-.-- 

І І 

І -> VAR - ----- і <------ І 

І І ІІ І І 

--> ( ----------- > identifier -> : -> type identifier -> ) ->- 
I I 
I I 
————— —— > x -------------------- 

A type identifier must be used following the colon - otheruise 


ЖЕККОКЖ HH will result. 


Variable parameters as well as value parameters are fully 
supported. 


Procedures and functions are not valid as parameters. 


1-15 STATEMENT. 


Refer to the syntax diagram on page below. 
Assignment statements: 


See section 1.? for information on which assignment statements 
are illegal. 


CASE statements: 


An entirely null case list is not allowed і.е. CASE OF END: 
will generate an error (XERRORX* 13). 


The ELSE clause. which is an alternative to END. is executed 
if the selector ('expression' overleaf) is not found in one of 
the case lists ('constant' overleaf). 


If the END terminator is used and the selector is not found 
then the control is passed to the statement following the END. 


FOR statements: 

The control variable of a FOR statement may only be an 
unstructured variables not a parameter. This is half way 
between Jensen/Wirth and draft ISO standard definitions. 


GOTO statements: 


It is only possible to GOTO a label which is present in the 
same block as the GOTO statement and at the same level. 


Labels must be declared (using the Reserved Word LABEL) in the 
block in which they are used’ a label consists of at least one 
and up to four digits. Uhen a label is used to mark a 
statement it must appear at the beginning of the statement and 
be followed by a colon - ':'. 


STATEMENT. 
--» unsigned integer --> : --- 


>-------- > variable identifier ---> :- ---> expression ----- >> 
І І І 
--> function identifier --- І 


---> procedure identifier ---> ( ---> expression ---> ) -->I 


---> BEGIN ----- > statement --------- > END --------------- >I 


> IF > expression > THEN > statement --> ELSE > statement >I 


> CASE > expression > OF > constant > : > statement > END >I 
I I I I 
I--- а <---- I I 
I I 


IH Hi Hi Hi H Hi HI H Hi H Hi H H H Hd H HL H HH HH 
' 
' 
І 
І 
І 
І 
І 
' 
' 
' 
' 
' 
' 
' 
' 
' 
І 
І 
[ 
' 
v 
H 


1. | | со me 1 <---------- І І 
І І І 
Te SSS = I 
I I I 
I ---> ELSE --> statement -->І 
I I 
I---> WHILE ---> expression ---> DO ---> statement -------- >I 
I I 
I---> REPEAT ---> statement ---> UNTIL ----> expression --->I 
I I I I 
I. 9 $2222 3 <------ I 
I I 
I-> FOR -> variable identifier -> := -> expression -> TO - I 
I I I 1 
I I I: I 
fCao t o |  -e522-22255 DOUNTO «----------- I I 
I I I I 
I Ice-e--2-220----2220050255-225052-2-2252522254 I 
I I I 
I --» expression --> DO --> statement -->I 
I I 
I---> WITH ---> variable ---> 20 ---> statement ----------- >I 
I I I I 
22 шата 1 <----- І 
І І 
І---> GOTO ---> unsigned integer -------------------------- >І 
І І 
------------------------------ >-----------------------------І 

І 


1-1b BLOCK. 


>---> LABEL --------- > unsigned integer ---------------------- 
I ^ I 
І<---- 1 <-------------------- IL 
I 

I 

I---> CONST ---> identifier ---> = ---> constant ------------ 
I I I 
I A I 
I<------------ 1 <------------------------- 
І 

І 

І---> ТҮРЕ ----> identifier ---> = ---> type ---------------- 
І І І 
І A I 
I------------------------------- 1 <------------------------- 
І 

І 

І---> УАК ----- > identifier ---> : ---> type ---------------- 
І І І І 
І І<------ 1 <----- І 
І І І 
І<------------------------------ 1 <------------------------- 
І 

І 

І---> PROCEDURE ---> identifier ---> parameter list ------- >І 
І І І 
f ДҙҺҙҺҙҺҙҙҺҙҙ.  ет252222-2-255- І 
І І І 
І ---> а ---> FORWARD --->І 
І І 
І І 
I> FUNCTION > identifier > parameter list > : > type ident.-> 
I I 
I I 
I«------ 1 <------ block <------ a eS Sos See m m S Ss m АТ s 
I 

I 

----> BEGIN ---> statement ---> END ----------------------- >- 

I I 
------ 1 <------ 


Note that, when а file variable is declared. then it may be 
followed. optionally. by a constant with a value between 1 and 
255 inclusive enclosed in square brackets. This constant 
specifies the buffer size used for this file. in 128 character 
units- For example if you require the file filel to have a 
buffer size of РК (2048 characters) then the declaration 
should look like: 


VAR filel : FILE OF CHAR[1L1: 
or 


CONST filesize = lbi 
VAR filel : TEXTLEfilesizels 


Forward References. 


As in the Pascal User Manual and Report (Section 11-С.1) 
procedures and functions may be referenced before they are 
declared through use of the Reserved Word FORWARD e.g. 


PROCEDURE a(y:t?) 4 FORWARDS (xprocedure a declared to bex) 
PROCEDURE b(x:t)4 (xforward of this statement*) 
BEGIN 
абр) (xprocedure a геҒегепсеа.ж) 
ENDS 
PROCEDURE аз (xactual declaration of procedure а.ж) 
BEGIN 
b(g); 
ENDS 
Note that the parameters and result type of the procedure a 
are declared along with FORWARD and are not repeated in the 


main declaration of the procedure- Remember, FORWARD is a 
Reserved Word. 


1.17 PROGRAM. 


--> PROGRAM --> identifier --> š --> block --> END -->- 


Since files are not implemented there are no formal 
parameters of the program. 


B Predefined Identifiers. 


в.1 CONSTANTS. 

MAXINT The largest integer available i.e. 327b7. 
TRUE. FALSE The constants of type Boolean. 

г.г TYPES. 


INTEGER See Section 1.3. 


REAL See Section 1.3. 


CHAR The full extended ASCII character set of 25b 
elements. 

BOOLEAN (TRUESFALSE?- This type is used in logical 
operations including the results of 
comparisons. 


2-3 PROCEDURES AND FUNCTIONS. 


9.3.1 Input and Output Procedures. 


в.3.1.1 WRITE 


The procedure URITE is used to output data to 
the screen or printer. 

Uhen the expression to be written is simply of 
type character then WRITE(e) passes the 8 bit 
value represented by the value of the 
expression e to the screen or printer as 
appropriate. 


Note: 


CHR(8) (CTRL H) gives a destructive backspace 
on the screen. 

CHR(12) (CTRL L) clears the screen or gives a 
new page on the printer. 

CHR(13) (CTRL M) performs a carriage return 
and line feed. 

CHR(1b) (CTRL P) will normally direct output 
to the printer if the screen is in use or vice 


versa. 
Generally though: 

ШКІТЕ (Ра. Ре-....... Рп) 1 is equivalent to: 

BEGIN WRITE(P1)5 WRITE(P2)5 ....... 5 WRITE(Pn) ENDS 
The write parameters PliPei--.---- Pn can have one of the 


following forms: 
<e> or <e:m> or <e:m:n> or <e:m:H> 


where e4m and n are expressions and H is a literal constant. 
We have 5 cases to examine: 


11 e is of type integer: and either <e> or <e:m> is used. 


The value of the integer expression e is converted to a 
character string with a trailing space. The length of the 
string can be increased (with leading spaces) by the use of 

m which specifies the total number of characters to be output. 
If m is not sufficient for e to be written or m is not present 
then e is written out in full, with a trailing space. and m is 
ignored. Note that. if m is specified to be the length of e 
without the trailing space then no trailing space vill be 
output. 


g] e is of type integer and the form <e:m:H> is used. 


In this case e is output in hexadecimal. If m=1 or m=2 then 
the value (е MOD 1Блп) is output іп a width of exactly m 
characters. If m=3 or m=4 then the full value of e is output 
in hexadecimal in a width of H characters. If m»! then leading 
Spaces are inserted before the full hexadecimal value of e as 
necessary. Leading zeroes will be inserted where applicable. 
Examples: 


ШКІТЕ (2005: т:Н) 5 


outputs: 1 
outputs: 01 
outputs: 0401 
outputs: 0401 
outputs: 0401 


333383 
"f n n H H 
Un + LJ Ue 


3] e is of type real. The forms <e> <e:m> or <e:m:n> may be 
used. 

The value of e is converted to a character string representing 
a real number. The format of the representation is determined 
by n. 

If n is not present then the number is output in scientific 
notation, with a mantissa and an exponent. If the number is 
negative the a minus sign is output prior to the mantissa, 
otherwise a space is output. The number is always output to at 
least one decimal place up to a maximum of 5 decimal places 
and the exponent is always signed (either with a plus or minus 
sign). This means that the minimum width of the scientific 
representation is 8 characters: if the field width m is less 
than 8 then the full width of le characters will always be 
output. If m>=8 then one or more decimal places will be output 
up to a maximum of 5 decimal places (m-12). For m»l2 leading 
Spaces are inserted before the number. Examples: 


URITE(C-1-23E 10:М): 


m=? gives: -1.23000E+10 
m=6 gives: -1-2E+10 

m=4 gives: -1-23E+10 
m=10 gives: -1-230E+10 
m=11 gives: -1-2300E+10 
m-12 gives: -1.23000E+10 
m=13 gives: -1.23000E+10 


If the form <e:m:n:> is used then a fixed-point representation 
of the number e will be written with n specifying the number 
of decimal places to be output. No leading spaces will be 


output unless the field width m is sufficiently large. If n is 
zero then e is output as an integer. If e is too large to be 
output in the specified field width then it is output in 
scientific format with a field width of m (see above). 
Examples: 


URITE(CLE2:b:2) gives: 100-00 
URITE(CLE2:8:2) gives: 100-00 
ШВІТЕ (203.955:Ь:1) gives: 23.5 
WRITE(23-455:4:2) gives: 2.34550E+01 
WRITE(23.455:4:0) gives: 23 


u] е is of type character or type string. 


Either «e» or <e:m> may be used and the character or string of 
characters will be output in a minimum field width of 1 (for 
characters) or the length of the string (for string types). 
Leading spaces are inserted for m is sufficiently large. 


5] e is of type Boolean. 


Either «e» or <e:m> may be used and 'TRUE' or 'FALSE' will be 
output depending on the Boolean value of e 4 using a minimum 
field width of 4 or 5 respectively. 


2-3-1-2 WRITELN 


WRITELN output gives a newline- This is 
equivalent to WRITE(CHR(13))- Note that 
a linefeed is included. 


ШКІТЕЕСМ(Р2 + Ре-....... РЗ) 1 is equivalent to: 


BEGIN ШКТТЕСР1-РО-.-...... P3)5 WRITELN ENDS 


2.3.1.3 PAGE 
The procedure PAGE is equivalent to 
WRITE(CHR(12))5 and causes the video screen to 
be cleared or the printer to advance to the 
top of a new page. 


2.3.1.4 READ 
The procedure READ is used to access data 
from the keyboard- It does this through a 
buffer held within the runtimes - this buffer 
is initially empty (except for an end-of-line 
marker). We can consider that any accesses to 
this buffer take place through a text window 
over the buffer through which we can see one 
character at a time- If this text window is 
positioned over an end-of-line marker then 
before the read operation is terminated a new 
line of text will be read into the buffer from 


the keyboard- While reading in this line all 
various control codes detailed in Section D.D 
will be recognised- Now: 


КЕАР(У1-У2-....... Уп)з is equivalent to: 

BEGIN READ(V1)5 READ (V2)5 ....1 READ(Vn) ENDS 
where У1- Ve etc. may be of type character, 
string. integer or real. 


The statement КЕА? (У) . has different effects 
depending on the type of V- There are 4 cases 
to consider: 


11 У is of type character. 


In this case READ(V) simply reads a character 
from the input buffer and assigns it to V. If 
the text window on the buffer is positioned on 
a line marker (a CHR(13) character) then the 
function EOLN will return the value TRUE and 

a new line of text is read in from the 
keyboard- When a read operation is 
subsequently performed then the text window 
will be positioned at the start of the new 
line. 


Important note: Note that EOLN is TRUE at the 
start of the program. This means that if the 
first READ is of type character then a CHR(13) 
value will be returned followed by the reading 
in of a new line from the keyboard: a 
subsequent read of type character will return 
the first character from this new lines 
assuming it is not blank- See also the 
procedure READLN bellow. 


2l V is of type string. 


A string of characters may be read using READ 
and in this case a series of characters will 
be read until the number of characters defined 
by the string has been read or EOLN = TRUE. If 
the string is not filled by the read (i.e. if 
end-of line is reached before the whole string 
has been assigned) then the end of the string 
is filled with null (CHR(O)) characters - this 
enables the programmer to evaluate the length 
of the string that was read. 

The note concerning in 11 above also applies here. 


31 V is of type integer. 


In this case a series of characters which 
represent an integer as defined in Section 1-3 
is read. All preceding blanks and end-of line 
markers are skipped (this means that integers 
may be read immediately cf. the note in 11 
above). 


If the integer read has an absolute value 
greater than MAXINT (3287?7Bb?7) then the runtime 


9-3-1-5 READLN 


error 'Number too large’ will be issued and 
execution terminated. 


If the first character read. after spaces and 
end-of-line characters have been skipped. is 
not a digit or a sign ('+!' or '-') then a 
runtime error 'Number expected' will be 
reported and the program aborted. 


u] V is of type real. 


Here, a series of characters representing а 
real number according to the syntax of Section 
1.3 will be read. 


All leading spaces and end-of-line markers are 
skipped and. as for integers above. the first 
character afterwards must be a digit or a sign. 
If the number read is too large or too small 
(see Section 1.3) then an 'Overflow' error 
will be reported. if 'E' is present without a 
following sign or digit then 'Exponent 
expected' error will be generated and if a 
decimal point is present without a subsequent 
digit then a 'Number expected' error will be 
given. 


Reals. like integers. may be read immediately; 
see 1] and 31 above. 


READLN(V1,V2,------- Уп)з is equivalent to: 


BEGIN READ(V1.,V2,------- Мп) 
READLN ENDS 


READLN simply read in a new buffer from the 
keyboards while typing in the buffer you may 
use the various control functions detailed in 
Section П.П. Thus EOLN becomes FALSE after the 
execution of READLN unless the next line is 
blank. 


READLN may be used to skip the blank line 
which is present at the beginning of the 
execution of the object code i-e- it has the 
effect of reading in a new buffer- This will 
be useful if you wish to read a component of 
type character at the beginning of a program 
but it is not necessary if you are reading an 
integer or areal (since end-of-line markers 
are skipped) or if you are reading characters 
from subsequent lines. 


2-3-2 Input Functions. 


0.3.0.1 EOLN 


2.3.2.2 INCH 


The function EOLN is a Boolean function which 
returns the value TRUE if the next char to be 
read would be an end-of-line character 
(chr(13)). Otherwise the function returns the 
value FALSE. 


The function INCH causes the keyboard of the 
computer to be scanned and. if a key has been 
pressed, returns the character represented by 
the key pressed- If no key has been pressed, 
then СНК(П) is returned. The function 
therefore returns a result of type character. 


2-3-3 Transfer Functions. 


9-3-3-1 TRUNC(X) 


2.3.3.2 ROUND(X) 


The parameter X must be of type real or 
integer and the value returned by TRUNC is the 
greatest integer less than or equal to X if X 
is positive or the least integer greater than 
or equal to X if X is negative. Examples: 


TRUNC(-1-5) returns -1 
TRUNC(1.H) returns 1 


X must be of type real or integer and the 
function returns 'nearest' integer to X 
according to standard rounding rules). 
Examples: 


ROUND(-b-5) returns -b 
ROUND (-Ь. 51) returns -7 
ROUND(LL-?) returns 10 
ROUND (23-5) returns 24 


0.3.3.3 ENTIER(X) 


2-3-3-4 ORD(X) 


в.3.3.5 CHR(X) 


X must be of type real or integer - ENTIER 
returns the greatest integer less than or 
equal to Х- for all X- Examples: 


ЕМТТЕКС-Б.5) returns -7 
ЕМТІЕК(11.7) returns 11 


Note: ENTIER is not a Standard Pascal function 
but is the equivalent of BASIC's INT. It is 
useful when writing fast routines for many 
mathematical applications: 


X may be of any scalar type except real.The 
value returned is an integer representing the 
ordinal number of the value of X within the 
set defining the type of Х. 


If X is of type integer then ORD(X)=X5 this 
should normally be avoided. 


Examples: 


ORD('a') returns 4? 
ORD('g') returns bH 


X must be of type integer. CHR returns a 
character value corresponding to the ASCII 
value of X. Examples: 


CHR(49) returns '1' 
CHR(H1) returns 'I' 


2-3-4 Arithmetic Functions. 


In all the functions within this sub-section the parameter X 
must be of type real or integer. 


2-3-4.1 ABS(X) 


2-3-4.2 SAR(X) 


Returns the absolute value of X (e-g-ABS(-4.5) 
gives 4.5). The result is of the same type as 
X. 


Returns the value ХЖХ i.e. the square of X. 


The result is of the same type as Х. 


0.3.0.3 SART(X) 
Returns the square root of X - the returned 
value is always of type real. A 'Maths Call 
Error! is generated if the argument X is 
negative. 


2.3.4.4 FRAC(X) 


Returns the fractional part of X: 
FRAC(X) = X - ENTIER(X)- 


As with ENTIER this function is useful for 
writing many fast mathematical routines. 
Examples: 


FRAC(1-5) returns 0.5 
ҒКАС(- 120. БЬ) returns 0.44 


0.3.4.5 SIN(X) 


Returns the sine of X where X is in radians. 
The result is always of type real. 


2-3-4.b COS(X) 


Returns the cosine of X where X is in radians. 
The result is of type real. 


9-3-4.7 TANCX) 


Returns the tangent of X where X is in radians. 
The result is always of type real. 


2-3-4.8 АКСТАМСХ) 
Returns the anglei in radians. whose tangent is 


equal to the number X- The result is of type 
real. 


2.3.4.9 EXP(X) 


Returns the value eAX where e=2-71424- Тһе 
result is always of type real. 


2.3.4.10 LN(X) 


2.3.5 Further 


в-3.5.1 NEU (p) 


0.3.5.0 MARK(v1) 


Returns the natural logarithm (i.e. to the 
base e) of X. The result is of type real. 
If X <= D then а 'Maths Call Error’ will be 
generated. 


Predefined Procedures. 


The procedure NEW(p) allocates space for а 
dynamic variable. The variable p is a pointer 
variable and after NEW(p) has been executed p 
contains the address of the newly allocated 
dynamic variable- The type of the dynamic 
variable is the same as the type of the 
pointer variable p and this can be of any 


type. 


To access the dynamic variable pA is used - 
see Appendix H for an example of the use of 
pointers to reference dynamic variables. 


To re-allocate space used for dynamic 
variables use the procedures MARK and RELEASE 
(see below). 


This procedure saves the state of the dynamic 
variable heap to be saved in the pointer 
variable vl. The state of the heap may be 
restored to that when the procedure MARK was 
executed by using the procedure RELEASE (see 
bellow). 


The type of variable to which vl points is 
irrelevant, since vl should only be used with 
MARK and RELEASE never МЕШ. 


For an example program using MARK and RELEASE 
see Appendix 4. 


0.3.5.3 RELEASE(v1) 


This procedure frees space on the heap for use 
of dynamic variables- The state of the heap is 


restored to its state when MARK(v1) was 
executed - thus effectively destroying all 
dynamic variables created since the execution 
of the MARK procedure- As such it should be 
used with great care. 


See above and Appendix H for more details. 


2.3.5.4 ТМЕТМЕССТ-СР-СЧ........ ) 


2.3.5.5 USER(V) 


9.3-5-Б HALT 


This procedure allows 280 machine code to be 
inserted within the Pascal program: the values 
(Cl MOD 25b. Ce MOD 2565 СЗ MOD 25b; ....... ) 
are inserted in the object program at the 
current location counter address held by the 
compiler. Cl. Ср. СЗ etc. are integer 
constants of which there can be any number. 
Refer to Appendix H for an example of the use 
of INLINE. 


USER is a procedure with one integer argument 
V. The procedure causes a call to be made to 
the memory address given by V. Since Hisoft 
Pascal H holds integers in two's complement 
form (see Appendix 3) then in order to refer 
to addresses greater than #?7FFF (32?b?) 
negative values of V must be used. For example 
#С000 is -16384 and so USER(-16384)5 would 
invoke as a call to the memory address %СППП. 
However, when using a constant to refer to а 
memory address. it is more convenient to use 
hexadecimal. 

The routine called should finish with а 780 
RET instruction (#СЧ) and must preserve the ІХ 
register. 


This procedure causes program execution to 
stop with the message 'Halt at the PC-XXXX' 
where XXXX is the hexadecimal memory address 
of the location where the HALT was issued. 
Together with a compilation listing. HALT may 
be used to determine which of two or more 
paths through a program are maked. This will 
normally be used during de-bugging. 


2.3.5.7 POKECX«.V) 


POKE stores the expression V in the computer's 
memory address X. X is of type integer and V 


can be of any type except SET- See Section 
2.3.5.5 above for a discussion of the use of 
integers to represent memory addresses. 
Examples: 


РОКЕ (#Ь000-'А') places #41 at location $5000. 
POKE(-1b38H.3.BbE3) places OO ПЕ 20 70 (in 
hexadecimal) at location #С000. 


2.3.5.8 TOUT (МАМЕ-25ТАКТ-817Е) 


TOUT is the procedure which is used to save 
variables on tape- The first parameter is of 
type АККАҮГ12..81 OF CHAR and is the name of 
the file to be saved- SIZE bytes of memory 
are dumped starting at the address START- 
Both these parameters are of type INTEGER. 


E-g- to save the variable V to tape under the 
name "МАК ' use: 


TOUTC'VAR  ' S ADDR(CVO SSIZE(CVÓ) 


The drive number followed by a colon is attached 
to the file name and must be enclosed in single 
quotes. 

E.g. TOUT(C'1:MyFile's.ADDR(VDO 4SIZE(CV)OD. 


The use of actual memory addresses gives the 
user far more flexibility than just the ability 
to save arrays. For example if a system has 

a memory mapped screens entire screenfuls may 
be saved directly. See Appendix 4 for an 
example of the use of TOUT. 


2-3-5-9 TIN(NAMEsSTART) 


This procedure is used to load. from tape, 
variable etc. that have been saved using TOUT. 
NAME is of type АККАҮГ1..81 of CHAR and START 
is of type INTEGER. The tape is searched for а 
file called NAME which is then loaded at 
memory address START. The number of bytes to 
load is taken from the tape (saved on the tape 
by TOUT). 


E-g- to load the variable saved in the example 
in Section 2.3.5.8 above use: 


ТТМС"УАК 'sSADDR(CVO) 
TIN('1:MyFile'sADDR(CVO) 


Because source files are recorded by the 
editor using the same format as that used by 
ТІМ and TOUT. TIN may be used to load text 
files into ARRAYs of CHAR for processing (see 


the НРЧТ Alteration Guide). 


See Appendix 4 for an example of the use of 
TIN. 


2-3-5-10 OUT(CP«C) 


2-3-6 Further 


о-3-Б-1 RANDOM 


2-3-b-2 SUCCCXD 


2-3-6-3 PRED(X) 


This procedure is used to directly access the 
2840"5 output ports without using the procedure 
INLINE. The value of the integer parameter P 
is loaded in to the BC register; then the 
character parameter C is loaded in to the A 
register and the assembly instruction 

OUT СС)-А is executed. 


E.g. 080Т(1-"А!) outputs the character "А! to 
the 2840 port 1. 


Predefined Functions. 


This returns a pseudo-random number between 

О and 255 inclusive. Although this routine is 
very fast it gives poor results when used 
repeatedly within loops that do not contain 
I/0 operations. 


If the user requires better results than this 
function yields then he/she should write a 
routine (either in Pascal or machine code) 
tailored to the particular application. 


X may be of any scalar type except real and 
SUCC(X) returns the successor of X. Examples: 


SUCC(C'A') returns 'B' 
SUCC('5') returns "Ы! 


X may be of any scalar type except reali the 
result of the function is the predecessor of 
X. Examples: 


PRED('j') returns 'i' 
PREDCTRUED) returns FALSE 


2-3-b-4 ODD(X) 


о.3.Б.5 ADDRCV) 


X must be of type integer, ODD returns а 
Boolean result which is TRUE if X is odd and 
FALSE if X is even. 


This function takes a variable identifier of 
any type as a parameter and returns an integer 
result which is the memory address of the 
variable identifier V- For information on how 
variables are heldi at runtime. within Hisoft 
Pascal 4 see Appendix 3. For an example of the 
use of ADDR see Appendix H. 


2-3-b-b РЕЕКСХ.Т) 


2-3-6-? SIZE(V) 


The first parameter of this function is of 
type integer and is used to specify a memory 
address (see Section 2.3.5.5). The second 
argument is a type : this is the result 

type of the function. 


PEEK is used to retrieve data from the memory 
of the computer and the result may be of any 
type. 


In all PEEK and POKE (the opposite of PEEK) 
operations data is moved in Hisoft Pascal 4's 
oun internal representation detailed in 
Appendix 3- For example: if the memory from 
#5000 onwards contains the values: 

50 bl 73 63 bl БС (in hexadecimal) then: 


WRITE (PEEK (#5000,ARRAYL1L--b1 OF CHAR)) gives 
'Pascal' 

ШКІТЕ(РЕЕК(Я5ППП-СНАК)) gives 'P' 
ШКІТЕ(РЕЕК(Ж5ППП-ІМТЕСЕК)) gives 24912 
WRITE(PEEK(#5000-REAL)) gives 2.4b227E+29 


see Appendix 3 for more details on the 
representation of types within Hisoft Pascal 4. 


The parameter of this function is a variable. 
The integer result is the amount of storage 
taken up by that variable. in bytes. 


о.3.Б.А INP(P) 


INP is used to access the 280"5 ports directly 
without using the procedure INLINE. The value 
of the integer parameter P is loaded into the 
BC register and the character result of the 
function is obtained by executing the assembly 
language instruction IN А. (С). 


3 Comments & Compiler Options. 


3.1 Comments. 


A comment may occur between any two reserved words, numbers: 
identifiers or special symbols - see Appendix п. A comment 
starts with a 'i' character or the !(ж! character pair. Unless 
the next character is а '$' all characters are ignored until 
the next 'X' character or 'x)' character pair. If а '$' was 
found then the compiler looks for a series of compiler options 
(see below) after which characters are skipped until a 'l' or 
'ж)' is found. 


3-2 Compiler Options. 


The syntax for specifying compiler options is: 


The following options are available: 

Option L: 

Controls the listing of the program text and object code 
address by the compiler. 


If L+ then a full listing is given. 
If L- then lines are only listed when an error is detected. 


DEFAULT: L+ 


Option 0: 


Controls whether certain overflow checks are made- Integer 
multiply and divide and all real arithmetic operations are 
always checked for overflow. 

If 0+ then checks are made on integer addition and subtraction 


If 0- then the above checks are not made. 


DEFAULT: 0+ 


Option C: 


Controls whether or not keyboard checks are made during object 
code program execution. 


If C+ then if CC is pressed then execution will return to with 
a HALT message - see Section 2-3.-5-b- 


This check is made at the beginning of all loops. procedures 
and functions. Thus the user may use this facility to detect 
which loop etc. is not terminating correctly during the 
debugging process. It should certainly be disabled if you wish 
the object program to run quickly. 


If C- then the above check is not made. 


DEFAULT: C+ 


Option S: 


Controls whether or not stack checks are made. 


If S+ then. at the begining of each procedure and function 
call. a check is made to see if the stack will probably 
overflow in this block. If the runtime stack overflows the 
dynamic variable heap or the program then the message 

"Out of RAM at РС-ХХХХ! is displayed and execution aborted. 
Naturally this is not foolproof*: if a procedure has a large 
amount of stack usage within itself then the program may 
'crash'. Alternatively. if a function contains very little 
stack usage while utilizing recursion then it is possible 
for the function to be halted unnecessarily. 


If S- then no stack checks are performed. 

DEFAULT: S+ 

Option A: 

Controls whether checks are made to ensure that array indices 
are within the bounds specified in the array's declaration. 
If A* and an array index is too high or too lou then the 
message 'Index too high’ or 'Index too low!’ will be displayed 
and the program execution halted. 

If A- then no such checks are made. 


DEFAULT: A+ 


Option I: 


When using 1Һ bit 28's complement integer arithmetica overflow 


occurs when performing а >+ Са >=. or <= operation if the 
arguments differ by more than МАХТМТ (32767). If this occurs 
then the result of the comparison will be incorrect- This will 
not normally present any difficulties: however, should the 
user wish to compare such numbers. the use of I+ ensures that 
the results of the comparison will be correct. The equivalent 
situation may arise with real arithmetic in which case an 
overflow error will be issued if the arguments differ by more 
than approximately 3-4E34 5 this cannot be avoided. 

If I- then no check for the result of the above comparisons 
is made. 


DEFAULT: I- 


Option P: 


If the P option is used the device to which the compilation 
listing is sent is changed i.e. if the video screen was being 
used the printer is used and vice versa. Note that this option 
is not followed by a '*' or '-'. 

DEFAULT: The video screen is used. 


Option F: 


This option letter must be followed by a space and then an 
eight character filename. If the filename has less than eight 
characters it should be padded with spaces. 

The presence of this option causes inclusion of Pascal source 
text from the specified file from the end of the current line 
- useful if the programmer wishes to build up a 'library' of 
much-used procedures and functions on tape and then include 
them in particular programs. 

The program should be saved using the built-in editor's 'P' 
command. On most systems the list option L- should be used 

- otherwise the compiler will not compile fast enough. 


Example: (xsL-4F MATRIX include the text from a tape file 
MATRIX*) 5 


When writing very large programs there may not be enough 

room in the computer's memory for the source and object code 
to be present at the same time. It is however possible to 
compile such programs by saving them to tape and using the 
'F' option - then only 124 bytes of the source are in RAM 

at any one time. leaving much more room for the object code. 
This option may not be nested and is not implemented in the 
ZX Spectrum version. (*In the HPHS ZX Spectrum version this 
option is implemented. The Pascal source text. which is to be 
included. should be saved using the built-in editor's command, 
instead of 'P'.x) 


The compiler options may be used selectively. Thus debugged 
sections of code may be speeded up and compacted by turning 
the relevant checks off whilst retaining checks on untested 
pieces of code. 


4 The Integral Editor. 


4.1 Introduction to the Editor. 


The editor supplied with all versions of Hisoft Pascal ЧТ is 
а simple. line-based editor designed to work with all 780 
operating systems while maintaining ease of use and the 
ability to edit programs quickly and efficiently. 

Text is held in memory іп a compacted formi the number of 
leading spaces in a line is held as one character at the 
beginning of the line and all HP4T Reserved Words are 
tokenised into one character. This leads to a typical 
reduction in text size of 25%. 


NOTE: throughout this section the DELETE key is referred to 
instead of the control code CH. It appears more natural to do 
this. 


The editor is entered automatically when HP4T is loaded from 
tape and displays the message: 


Copyright Hisoft 1982 
All rights reserved 


followed by the editor prompt '»'. 


In response to the prompt you may enter a command line of the 
following format: 


C Nia Nea Sha Se 


followed by a RETURN where: 


C is the command to be executed (see Section 4.2 below). 
МІ is a number in the range 1 - 327b7 inclusive. 
Мо is a number in the range 1 - 327b? inclusive. 


851 15 a string of characters with a maximum length of 20. 
S2 15 a string of characters with a maximum length of 20. 


The comma is used to separate the various arguments (although 
this can be changed - see the 'S' command) and spaces are 
ignored. except within the strings. None of the arguments are 
mandatory although some of the commands (e.g. the 'D'elete 
command) will not proceed without М1 and Ne being specified. 
The editor remembers the previous numbers and strings that you 
entered and uses these former values. where applicable, if you 
do not specify a particular argument within the command line. 
The values of № апа Ne are initially set to 10 and the 
strings are initially empty. If you enter an illegal command 
line such as F-1,100,HELLO then the line will be ignored and 
the message 'Pardon?' displayed - you should then retype the 
line correctly e.g. F1,100,HELLO- This error message will also 
be displayed if the length of S2 exceeds 205 if the length of 
51 is greater than 20 then any excess characters are ignored. 
Commands may be entered in upper or lower case. 

While entering a command line. all the relevant control 
functions described in Section D.D may be used e-g- CX to 
delete to the beginning of the line. 


This lists the current text to the display device from line 
number n to line number m inclusive- The default value for n 
is always l and the default value for m is always 327b? i.e. 
default values are not taken from previously entered arguments. 
To list the entire textfile simply use 'L' without any 
arguments. Screen lines are formatted with a left hand margin 
so that the line number is clearly displayed. The number of 
Screen lines listed on the display device may be controlled 
through use of the 'K' command - after listing a certain 
number of lines the list will pause (if not yet at line 
number т)- hit control function CC to return to the main 
editor loop or any other key to continue the listing. 


Command: K n 


'K' sets the number of screen lines to be listed to the display 
device before the display is paused as described in 'L' above. 
The value (п MOD 256) is computed and stored. For example use 
K5 if you wish a subsequent 'L'ist to produce five screen lines 
at a time. 


4.2.3 Text Editing. 


Once some text has been created there will inevitably be a 
need to edit some lines- Various commands are provided to 
enable lines to be amended. deleted. moved and renumbered: 


Command: D «nam» 


All lines from n to m inclusive are deleted from the textfile. 
If m<n or less than two arguments are specified then no action 
will be taken: this is to help prevent careless mistakes. 

A single line may be deleted by making п-п 3 this can also be 
accomplished by simply typing the line number followed by 
RETURN. 


Command: M nam 


This causes the text at line n to be entered at line m 
deleting any text that already exists there. Note that line n 
is left alone. So this command allows you to 'M'ove a line of 
text to another position within the textfile. If line number n 
does not exists then no action is taken. 


Command: N «nam» 


Use of the 'N' command causes the textfile to be renumbered 
with a first line number of n and in line number steps of m. 
Both n and m must be present and if the renumbering would 
cause any line number to exceed 327b? then the original 
numbering is retained. 


Command: F namifas 


The text existing within the line range n<x<m is searched for 
an occurrence of the string f - the 'find' string- If such an 
occurrence is found then the relevant text line is displayed 
and the Edit mode is entered - see below- You may then use 
commands within the Edit mode to search for subsequent 
occurrences of the string f within the defined line range or 
to substitute the string s (the 'substitute' string) for the 
current occurrence of f and then search for the next 
occurrence of fi see below for more details. 

Note that the line range and the two strings may have been set 
up previously by any other command so that it may only be 
necessary to enter 'F' to initiate the search - see the 
example in Section H.3 for clarification. 


Command: E n 


Edit the line with line number n. If n does not exist then no 
action is taken: othervise the line is copied into a buffer 
and displayed on the screen (with the line number). the line 
number is displayed again underneath the line and the Edit 
mode is entered. All subsequent editing takes place within the 
buffer and not in the text itself: thus the original line can 
be recovered at any time. In this mode a pointer is imagined 
moving through the line (starting at the first character) and 
various sub-commands are supported which allow you to edit the 
line. The sub-commands are: 


' ! (space) - increment the text pointer by one і.е. 
point to the next character in the line. You cannot 
step beyond the end of the line. 


DELETE (or BACKSPACE) - decrement the text pointer by 
one to point at the previous character in the line. 
You cannot step backwards beyond the first character 
in the line. 


CI (control function) - step the text pointer forwards 
to the next tab position but not beyond the end of the 
line. 


RETURN - end the edit of this line keeping all the 
Changes made. 


Q - quit the edit of this line i.e. leave the edit 
ignoring all the changes made and leaving the line as 
it was before the edit was initiated. 


R - reload the edit buffer from the text i.e. forget 
all changes made on this line and restore the line as 
it was originally. 


L - list the rest of the line being edited і.е. the 
remainder of the line beyond the current pointer 
position. You remain in the Edit mode with the pointer 
re-positioned at the start of the line. 


K - kill (delete) the character at the current pointer 


position. 


Z - delete all characters from (and including) the 
current pointer position to the end of the line. 


F - find the next occurrence of the 'find' string 
previously defined within a command line (see the 'F' 
command above). This sub-command will automatically 
exit the edit on the current line (keeping the changes) 
if it does not find another occurrence of the 'find' 
string in the current line. If an occurrence of the 
'find' string is detected in a subsequent line (within 
the previously specified line range?) then the Edit 
mode will be entered for the line in which the string 
is found. Note that the text pointer is always 
positioned at the start of the line after a successful 
search. 


S - substitute the previously defined 'substitute' 
string for the currently found occurence of the 'find' 
string and then perform the sub-command 'F' i.e. search 
for the next occurence of the 'find' string. This, 
together with the above 'F' sub-command., is used to 
step through the textfile optionally replacing 
occurrences of the 'find' string with the 'substitute' 
string - see Section 4-3 for an example. 

жж Important Note жж In the current version of НРЧТ 
there is a known bug in the operation of the 
Sub-command 'S' - this sub-command should only be used 
immediately after an 'F' command: an 'F' sub-command 
or an 'S' sub-command- In practice this should pose no 
problems. 


I - insert characters at the current pointer position. 
You will remain in this sub-mode until you press 
RETURN - this will return you to the main Edit mode 
with the pointer positioned after the last character 
that you inserted. Using DELETE (or BACKSPACE) within 
this sub-mode vill cause the character to the left of 
the pointer to be deleted from the buffer while the 
use of CI (control function) will advance the pointer 
to the next tab position. inserting spaces. 


X - this advances the pointer to the end of the line 
and automatically enters the insert sub-mode detailed 
above. 


C - change sub-mode. This allows you to overwrite the 
character at the current pointer position and then 
advances the pointer by one. You remain in the change 
sub-mode until you press RETURN whence you are taken 
back to the Edit mode with the pointer positioned 
after the last character you changed. DELETE (or 
BACKSPACE) within this sub-mode simply decrements the 
pointer by one i.e. moves it left while CI has no 
effect. 


Tape Commands. 


Text may be saved to tape or loaded from tape using the 
commands 'P' and 'G': 


Command: P namss 


The line range defined by n<x<m is saved to tape in НРЧТ 
format under the filename specified by the string s. Remember 
that these arguments may have been set by a previous command. 
Before entering this command make sure that your tape recorder 
is switched on and in RECORD mode. While the text is being 
saved the message 'Busy..' is displayed. 


Command: Ga4ss 


The tape is searched for a file in HP4T tape format and with 
a filename of s. Uhile the search is taking place the message 
"Busy--' will be displayed. If a valid HP4T tape file is found 
but has the wrong filename then the message 'Found' followed 
by the filename that was found on the tape is displayed and 
the search continued. Once the correct filename is found then 
'Found' will appear on the list device and the file will be 
loaded into memory. If an error is detected during the load 
then 'Checksum error' is shown and the load aborted. If this 
happens you must rewind the tapes press PLAY and type 'G' 
again. 


If the string s is empty then the first HP4T file on the tape 
will be loaded. regardless of its filename. 


Uhile searching of the tape is going on you may abort the load 
by holding CC down’ this will interrupt the load and return to 
the main editor loop. 


Note that if any textfile is already present then the textfile 
that is loaded from tape will be appended to the existing file 
and the whole file will be renumbered starting with line 1 in 
steps of 1. 


Command: W п-т-5 (xin the НРЧ5 Spectrum version оп1уж) 


The line range n<x<m is saved to tape under the filename 
specified by the string si in a format which can be loaded 
with the compiler option F (inclusion of Pascal source text). 
Before entering this command make sure that your tape recorder 
is switched on and is in RECORD mode. 


4.2.5 Compiling and Running from the Editor. 


Command: Сп 


This causes the text starting at line number n to be compiled. 
If you do not specify a line number then the text will be 
compiled from the first existing line- For further details see 
Section 0.2. 


Command: R 


The previously compiled object code will be executed, but only 
if the source has not been expanded in the meantime - see 
Section 0.2 for more detail. 


Command: T n 


This is the 'T'ranslate command. The current source is 
compiled from line n (or from the start if n is omited) and, 
if the compilation is successful. you will be prompted with 
"Ok?': if you answer "Ү! to this prompt then the object code 
produced by the compilation will be moved to the end of the 
runtimes (destroying the compiler) and then the runtimes and 
the object code will be dumped out to tape with a filename 
equal to that previously defined for the 'find' string. You 
may then. at a later stage. load this file into memory. using 
the НРЧТ loader. whereupon it will automatically execute the 
object program. Note that the object code is located at and 
moved to the end of the runtimes so thats after a 'T'ranslate 
you will need to reload the compiler - however this should 
present no problems since you are only likely to 'T'ranslate a 
program when it is fully working. 


If you decide not to continue with the dump to tape then 
simply type any character other than 'Y' to the 'Ok?' prompt: 
control is returned to the editor which will still function 
perfectly since the object code was not moved. 


u.g.b Other Commands. 


Command: B 


This simply returns control to the operating system. For 
details of how to re-enter the compiler refer to the HPHT 
Alteration Guide and your Implementation Note. 


Command: 0 nam 


Remember that text is held in memory in a tokenised form with 
leading spaces shortened into a one character count and all 
НРЧТ Reserved Words reduced to a one character token. However 
if you have somehow got some text in memory. perhaps from 
another editor, which is not tokenised then you can use the 
"0! command to tokenise it for you. Text is read into a buffer 
in an expanded form and then put back into the file in a 
tokenised form - this may of course take a little time to 
perform. A line range must be specified. or the previously 
entered values will be assumed. 


Command: $--а 


This command allows you to change the delimiter which is taken 
as separating the arguments in the command line- On entry to 
the editor the comma !.! is taken as the delimiter’: this may 
be changed by the use of the 'S' command to the first 
character of the specified string d. Remember that once you 
have defined a new delimiter it must be used (even within the 
'S' command) until another one is specified. 


Note that the separator may not be a space. 


4.3 An Example of the use of the Editor. 


Let us assume that you have typed in the following program 
(using 110-102: 


10 PROGRAM BUBBLESORT 

20 CONST 

30 Size = 20005 

40 VAR 

50 Numbers : ARRAY [1..Size] OF INTEGERS 
БО I- Temp : INTEGERS 


70 BEGIN 

40 FOR I:-1 TO Size DO NumberLIT :- RANDOM; 
90 КЕРЕАТ 

100 FOR I:-1 TO Size DO 

110 Noswaps :- TRUES 

120 IF Number[I]J > NumberLI+1] THEN 
130 BEGIN 

140 Temp == Number[1I]: 

150 Митрег Т1 :- Numberf£I+115 

160 NumberLI+1] := Tempi 

170 Noswaps := FALSE 

180 END 

190 UNTIL Noswaps 

200 END. 


This program has a number of errors which are as follows: 

Line 10 Missing semi-colon. 

Line 30 Not really an error but say we want a size of 100. 
Line 100 Size should be Size-1. 

Line 110 This should be at line 95 instead. 

Line 190 Noswapss should be Noswaps. 

Also the variable Numbers has been declared but all references 
are to Number. Finally the BOLEAN variable Noswaps has not 
been declared. 

To put all this right we can proceed as follows: 
FbO,200,Number.sNumbers and then use sub-command 'S' repeatedly. 
E10 then the sequence X 3 RETURN RETURN 
E30 then K C 1 RETURN RETURN 


F100,100,SizeiSize-1 followed by the sub-command 'S'. 


М110-45 . 
110 followed by RETURN. 


E190 then X DELETE RETURN RETURN 

b5 Noswaps : BOOLEAN; 

N10-10 to renumber in steps of 10. 

You are strongly recommended to work through the above example 
actually using the editor - you may find it a little 


cumbersome at first if you have been used to screen editors 
but it should not take long to adapt. 


Appendix 1 Errors 


А. 


DOonronrw ue 


1 


.1 Error numbers generated by the compiler. 


Number too large. 

Semi-colon expected. 

Undeclared identifier. 

Identifier expected. 

Use '=' not ':-' in a constant declaration. 
"а! expected. 

This identifier cannot begin a statement. 
Піс! expected. 

')' expected. 

Wrong type. 

".! expected. 

Factor expected. 

Constant expected. 

This identifier is not a constant. 

'"THEN' expected. 

"ро! expected. 

"ТО" or 'DOUNTO' expected. 

'(' expected. 

Cannot write this type of expression. 
"ОҒ! expected. 

".! expected. 

":! expected. 

'"PROGRAM' expected. 

Variable expected since parameter is a variable parameter. 
'BEGIN' expected. 

Variable expected in call to READ. 

Cannot compare expression of this type. 
Should be either type INTEGER or REAL. 
Cannot read this type of variable. 

This identifier is not a type. 

Exponent expected in real number. 

Scalar expression (not numeric) expected. 
Null strings not allowed (use СНК(П)). 
"(ж! expected. 

'*)' expected. 

Array index type must be scalar. 

"..! expected. 

БІ! or '-' expected in ARRAY declaration. 
Lowerbound greater than upperbound. 

Set too large (more than 25b possible elements). 
Function result must be type identifier. 
БА! or !1! expected in set. 

'..' or "а! or ЕД! expected in set. 

Type of parameter must be a type identifier. 
Null set cannot be the first factor in a 
non-assignment statement. 

Scalar (including real) expected. 

Scalar (not including real) expected. 
Sets incompatible. 

'<' and !>! cannot be used to compare sets. 
'"FORUARD'«.'LABEL'.' CONST' ,'VAR'.'TYPE' or 
'BEGIN' expected. 


51. Hexadecimal digit expected. 
5g. Cannot POKE sets. 
53. Array too large (>b4K). 
54. 'END' or !1! expected in RECORD definition. 
55. Field identifier expected. 
5b. Variable expected after 'UITH'. 
57. Variable in UITH must be of RECORD type. 
58. Field identifier has not had associated WITH statement. 
59. Unsigned integer expected after 'LABEL'. 

п п п п 'GOTO' . 
bl. This label is at the wrong level. 
b2. Undeclared label. 
b3. The parameter of SIZE should be a variable. 
bu. Can only use equality tests for pointers. 


Б?. The only write parameter for integers with two ':'-s 
is e:m:H. 

bà. Strings may not contain end-of-line characters. 

ЬЯ. The parameter of МЕШ-МАКК or RELEASE should be a 
variable of pointer type. 

70. The parameter of ADDR should be a variable. 


A-1-2 Runtime error messages- 


When a runtime error is detected then one of the following 
messages will be displayed. followed by ' at PC=XXXX'. where 
XXXX is the memory location at which the error occurred- Often 
the source of the error will be obvious: if not. consult the 
compilation listing to see where in the program the error 
occurred, using XXXX to cross reference. Occasionally this 

does not give the correct result. 


Halt 

Overflow 

Out of RAM 

7 by zero also generated by DIV. 
Index too low 
Index too high 
Maths Call Error 
Number too large 
Number expected 
Line too long 
Exponent expected 


ыо -n In AJ I” (+q — LJ [U = 


ы ы 


Runtime errors result in the program execution being halted. 


Appendix 2 Reserved Words & Predefined Identifiers. 


A.2.1 Reserved Words. 


AND ARRAY BEGIN CASE CONST DIV Do DOUNTO 
ELSE END FOR FORWARD FUNCTION GOTO IF 

IN LABEL MOD NIL NOT OF OR 

PACKED PROCEDURE PROGRAM RECORD REPEAT SET THEN 
TO TYPE UNTIL VAR WHILE WITH 


A-2-2 Special Symbols. 


The following symbols are used by Hisoft Pascal 4 and have a 
reserved meaning: 


+ - x / 

= <> < <= >= > 
( ) r 1 

A = . 1 4 

! 


A-2-3 Predefined Identifiers. 


The following entities may be thought of a declared in a block 
sorrounding the whole program and they are therefore available 
throughout the program unless re-defined by the programmer 
within an inner block. 

For further information see Section р. 


CONST MAXINT = 327b?4 


TYPE BOOLEAN = (РАХЕ -ТКОЕ ) 3 
CHAR (xThe expanded ASCII character setx) 
INTEGER = -MAXINT.-MAXINTS 


REAL (ЖА subset of the real numbers. See Section 1.3.ж) 


PROCEDURE WRITES WRITELN; READS READLNS PAGES HALTS USERS 
POKES INLINES OUTS NEWS MARKS RELEASES TINS TOUTS 


FUNCTION ABS 50КА ODDS RANDOMS ORDS SUCCS РКЕр х INCHS EOLNS 
PEEKS CHRS SQRT; ENTIERS ROUNDS TRUNCS FRACS SINS 
COS: TANS ARCTANS ЕХР LN ADDR; SIZE: INPS 


Appendix 3 Data Representation & Storage. 


A.3.1 Data Representation. 


The following discussion datails how data is represented 
internally by Hisoft Pascal Ч. 


А.3.1.1 Integers. 


Integers occupy 2 bytes of storage each. in 2's complement 
form. Examples: 


1 = #0001 
256 = #0100 
-25b = #FFOO 


The standard 220 register used by the compiler to hold 
integers is HL. 


A-3-1-2 Characters. Booleans and other 5сајаг5. 


These occupy 1 byte of storage each. in риге. unsigned binary. 


Characters: 8 bit- extended ASCII is used. 


ТЕ! = #45 
'[' = ФЕВ 
Booleans 
ORD (TRUE) 71 so TRUE is represented by 1. 
ORD (FALSE) =0 so FALSE is represented by П. 


The standard 2840 register used by the compiler for the above 
is A. 


А.3.1-3 Reals. 


The (mantissa.iexponent) form is used similar to that used in 
standard scientific notation - only using binary instead of 
denary- Examples 


ü 1 
g = рож 10 or 1-0 жа 


l = 1 ж 10 or 1-0 * p 
Р 
1 -1 
-le-5 = -1-25 ж 10 or -25 x р 
-1 
= -11001 * 2 
2 
3 
= -1.1001 ж 2 when normalized. 
2 
0.2 
-1 1 1 2 
0.1 = 1.0 ж 10 or ----- = ------ = ------ 
10 1010 101 
Р B 
so now we need to do some binary long division.. 
0-0001100 
101 I 0.10000000000000000 
101 
110 
101 
1000 
101 at this point we see 
--- that the fraction recurs 
0.1 
B 
=: Amas == = D.DDD11DD 
101 g 
о 
СЦ 
1.1001100 ж 2 answer. 


So how do we use the above results to represent these numbers 
in the computer? Well. firstly we reserve 4 bytes of storage 
for each real in the following format: 


sign normalized mantissa exponent data 


H L E D register 


sign: the sign of the mantissai l=negative. O=positive.- 


normalized mantissa: the mantissa normalized to the form 
1.ХХХХХХ with the top bit (bit 22) 
always 1 except when representing 
zero (HL=DE=0). 


exponent: the exponent in binary 2's complement form. 

Thus: 
2 = D 1000000 00000000 00000000 00000001 (#40-#00-#00-#01) 
1 = 0 1000000 00000000 00000000 00000000 (#90 - #00 - #00 - #00) 

-12.5 = 1 1100100 00000000 00000000 00000011 (#ЕЧ - #00 - #00 - #03) 
0.12 = 0 1100110 01100110 01100110 11111100 (%#%ЬЬ-#ЬЬ-%#ЬЬ-#ЕС) 


So- remembering that HL and DE are used to hold real numbers: 
then we would have to load the registers in the following way 
to represent each of the above numbers: 


Р = LD HL-#4000 
LD DE-#0100 


1 = LD HL.#uDDD 
LD DE-#0000 


-12.5 = LD HLi#E400 
LD DE.#0300 
0.1 = LD HLs*b5bbb 


LD DE.#FCbb 
The last example shows why calculations involving binary 
fractions can be inaccurate’ 0.1 cannot be accurately 
represented as a binary fractions to a finite number of 
decimal places. 


N-B- reals are stored in memory in order ED LH 


A-3-1-4 Records and Arrays. 
Records use the same amount of storage as the total of their 
components. 


Arrays: if n=number of elements in the array and 
S-size of each element then 


the number of bytes occupied by the array is пжѕ. 
e.g. an ARRAYE1.-101 OF INTEGER requires 10*2 = 20 bytes 


an ARRAYE2.-.12841..101 OF CHAR has 11*10=110 elements 
and so requires 110 bytes. 


A-3-1-5 Sets. 


Sets are stored as bit strings and so if the base type has 
n elements then the number of bytes used is: (n-1) DIV 8 + 1. 
Examples: 


а SET OF CHAR requires (25b-1) DIV а + 1 = Зр bytes. 
a SET OF (blueigreeniyellow) requires (3-1) DIV & + 1 = 1 byte. 


A-3-1-b Pointers. 


Pointers occupy 2 bytes which contain the address (in Intel 
format i.e. low byte first) of the variable to which they 
point. 


A.3-2 Variable Storage at Runtime. 


There are 3 cases where the user needs information on how 
variables are stored at runtime: 


a- Global variables - declared in the main program block. 

b- Local variables - declared in an inner block. 

с. Parameters and - passed to and from procedures and 
returned values. functions. 


These individual cases are discussed below and an example 
of how to use this information may be found in Appendix Ч. 


A-3.2-1 Global variables 


Global variables are allocated from the top of the runtime 
stack downwards e.g. if the runtime stack is at #BDDD and 
the main program variables are: 


VAR i: INTEGER: 
Ch: CHARS 
x: REAL 5 
then: 


i (which occupies 2 bytes - see the previous section) will be 
stored at locations #BO00-2 and #BDDD-1 i.e. at #AFFE and 
ЖАҒҒҒ. 

ch (1 byte) will be stored at location #АҒҒЕ-1-. i.e. at #AFFD- 


x (4 bytes) will be placed at %АҒҒЧ- #AFFA. #AFFB and АРЕС. 


Local variables 


Local variables cannot be accessed via the stack very easily 50: 
instead. the IX register is set up at the beginning of each 
inner block so that (IX-4) points to the start of the block's 
local variables e.g. 


PROCEDURE tests 
VAR is j: INTEGERS 


then: 
i (integer - so р bytes) will be placed at IX-4-2 and IX-4-1 


і.е. ІХ-Ь and IX-5. 
j will be placed at IX-8 and IX-7. 


A.-3-2-2 Parameters and returned values 


Values paraemters are treated like local variables and. like 
these variables. the earlier parameter is declared the higher 
address it has in memory. However, unlike variables. the 
lowest (not the highest) address is fixed and this is fixed at 
(IX*2) e.g. 


PROCEDURE test(i:REAL* ј: ІМТЕСЕК) 1 
then: 


j (allocated first) is at IX+2 and IX«3. 
i is at IX+4, IX*54 ІХ+Ь. and IX+?. 


Variable parameters are treated just like value parameters 
except that they are always allocated 2 bytes and these р 
bytes contain the address of the variable e.g. 

PROCEDURE test(i:INTEGERS VAR x:REAL2 3 

then: 

the reference to x is placed at IX+e and IX+35 these locations 
contain the address where x is stored. The value of i is at 


IX+4 and IX+5. 


Returned values of functions are placed above the first 
parameter in memory e.g. 


FUNCTION test(i:INTEGER) : REALS 


then i is at IX+2 and IX+3 and space is reserved for the 
returned value at IX+4, IX*54 ІХ+Ь and ІХ+?. 


Appendix 4 Some Example НРЧТ Programs. 


The following programs should be studied carefully if you are 
іп any doubt as to how to program in Hisoft Pascal ЧТ. 


(xProgram to illustrate the use of TIN and TOUT. 
The program constructs a very simple telephone 
directory on tape and then reads it back. You 
should write any searching required.*) 


PROGRAM TAPES 


CONST 
Size = 105 (xNote that 'Size' is in upper 
and lower case - not 'SIZE!'.x) 
TYPE 


Entry = RECORD 
Name : ARRAY Г1..101 OF CHARS 
Number : ARRAY Г1..1П1 OF CHAR 
ENDS 


VAR 
Directory : ARRAY [1..Size] OF Entry: 
І : INTEGERS 


BEGIN (xS$et up the directory..*) 
FOR І:- 1 TO Size DO 
BEGIN 
WITH DirectoryLIJ DO 
BEGIN 
URITE(C'Name р1Іеаѕе' ) 1 
КЕАР! Ма 
READ (Мате) 5 
WRITELN; 
URITE(C'Number please'); 
КЕАР! Ма 
READ (Number) 5 
WRITELN 
END 
ENDS 


(*To dump the directory to tape и5е..ж) 
TOUT('Director'iADDR(Directory) 4SIZE(Directory)) 

(xNow to read the array back to the following..*) 
TIN('Director'4ADDR(Directonry)) 

(xAnd now you can process the directory as you wish..... ж) 

END. 

10 (*Program to list lines of a file in reverse order. 
a Shows use of pointers, records, MARK and RELEASE.*x) 


40 PROGRAM ReverseLinei 
50 


TYPE elem=RECORD (xCreate linked-list structure*) 
next: ^elemi 
ch: CHAR 
END: 
link-^elem: 
VAR prevacursheap: links: (*all pointers to 'elem'x) 
BEGIN 
REPEAT (xdo this many times*) 
MARK (heap); (*assign top of heap to 'heap'*x) 
prev:=NIL4 (*points to no variable уек.ж) 
UHILE NOT EOLN DO 
BEGIN 
NEWCcur) 5 (*create а new dynamic гесогаж) 
READ (cura-ch)4 (xand assign its field to one 
character from Ғі1е. ж) 
cura-next:=previ (xthis field's pointer adresses*x) 
prev:=cur (*previous гесога.ж) 
ENDS 


(xWrite out the line backwards by scanning the records 
set up backwards. ж) 


cur:-previ 


WHILE cur <> NIL DO (XNIL is firstx) 
BEGIN 
WRITE(Ccura-ch)5  (XURITE this field i.e. character*) 
cur:=curaA-next (xAdress previous Ғіе1а. ж) 
ЕМ№ 
WRITELNS 
RELEASE (heap) 4 (xRelease dynamic variable ѕрасе. ж) 
READLN (xWait for another linex) 
UNTIL FALSE (xUse СС to ехіїж) 


END. 


(*#Program to show the use of recursionx*x) 

PROGRAM FACTORS 

(xThis program calculates the factorial of a number input 
from the keyboard 1) using recursion and 2) using an 
iterative method-*) 

TYPE 
POSINT = П..МАХІКТ: 

VAR 
METHOD : CHARS 
NUMBER : POSINTS 

(xRecursive algorithm. ж) 

FUNCTION RFAC(N : POSINT) : INTEGERS 


VAR F : POSINTS 


BEGIN 
IF N»1 THEN Ғ:- М ж RFAC(N-1) СЖКЕАС invoked М times*) 
ELSE F:= 13 
RFAC := F 
ENDS 


(xIterative solutionx) 
FUNCTION IFAC(N = POSINT) : INTEGERS 


VAR І.Е: POSINTS 
BEGIN 

F ге 1% 

FOR I := а TO N DO F t= РжІ5 (xSimple Loop*) 
IFAC := F 

END: 


BEGIN 
REPEAT 
URITE('Give method (I or R) and number mys 
READLN4 
READ (METHODiNUMBER) 3 
IF METHOD = 'R' 
THEN URITELN(NUMBER«4'! 
ELSE URITELN(NUMBER«4'! 
UNTIL МЏМВЕК-СО 
END. 


' J:RFACCNUMBER2 ) 
' IFAC(NUMBER)) 


(xProgram to show how to "дек your hands dirty'! 
i.e. how to modify Pascal variables using machine code. 
Demonstrates РЕЕК- РОКЕ- ADDR and INLINE.*) 


PROGRAM divmultes 


VAR ғ:КЕДІЗ 
FUNCTION divby2(x:REAL) : REAL 5 (xFunction to divide 
ру в.... циіскіуж) 
VAR i: INTEGERS 
BEGIN 
i:= ADDR(x)+15 (xPoint to the exponent of xx) 


РОКЕ (1 - РКЕР (РЕЕК (1. СНАК) ) ) 1 (x*Decrement the exponent of x. 
see Appendix 3.1.3.ж) 


divbye:=x 
END: 
FUNCTION multbye(x:REAL):REALS (xFunction to multiply by 
by 2.... циіскіуж) 
BEGIN 
INLINE (#DD.#34,43)5 (ЖІМС (IX+3) - the exponent 
of x - see Appendix 3.2.x) 
multbyce:=x 
END: 
BEGIN 
REPEAT 
URITE(C'Enter the number r ')5 
READ(r)4 (*No need for READLN - see 


Section 2-3-1-4x) 


URITELN('r divided by two is'aidivbye(r):?:2)5 
URITELN('r multiplied by two is'’amultbye(r):?:2) 
UNTIL r=D 
END. 


Appendix 5 ZX Microdrive Support & Commands 


Variables: 

n: start line 

m: end line 

s: file name 

1: microdrive number but can be from 1 to à 


Catalogue A Drive 
List the files on microdrive n: Xn [Glitchy] 


Save & Load Source Code 
Source code save: P namal:s 
Source code load: Ga4l:s 


Using The {SF} Compiler Option 
Using the {SF} compiler option {SF 1:5} 
Includes the text from file 5 on microdrive 1. 


Compiling & Saving Machine Code 
Compile and save to microdrive command: T п--1:5 


Saving & Loading Variables With TIN & TOUT 

TOUT(C'l1:s'sADDR(MyDataD? sSIZE(MyData) ) х 

Saves the contents of the variable MyData to the microdrive number 1 under the 
name s. 

ТІМ(!1:5!-АРОК(МуДаға)): 

Loads the contents of file 5 from microdrive number 1 at the start address of 
the variable MyData. 


Notes: 
1- The only versions of HiSoft Pascal that support the use of a 
microdrive are those with "M" after the version number. 
Example: 1.7М. 


2. All the above commands and file names are case sensitive. 
Example: MyFile.i Myfile and MYFILE are treated as different 
files. 


a- Take care then not to name any user variable after a 
HiSoft Pascal reserved word such as ADDR or SIZE. The 
compiler does not catch this error but the program will 
crash at run time. 


3- The P save command overwrites any existing file by the same 
name. 


uU. When using the microdrive: the {SF} option does not require 
pre-compiling the source code with the W command beforehand. 
Use instead the file name of the source code you wish to 
include. 


Appendix b Advanced TURTLE. sound and graphics package 


1 
TURTLEGRAPHICS: eine 
Schoepfung der Autoren 
in Anlehnung und TURTLE 
von HiSoft fuer das ZX Spectrum 
Neubearbitung: 27. Juli 2013 


L 
CONST 
РІ = 3-1415592b5 
MINX = 05 MAXX = 2555 
MINY = Оз MAXY = 1755 
VAR 


ANGLE. ХСОК- ҮСОК- 
PENMODE : INTEGERS 


PROCEDURE COPY 


PROCEDURE COPYS 
BEGIN 

USER (3756) 4 
END; {von COPY} 


TURTLEX 


FUNCTION TURTLEX : INTEGERS 
BEGIN 

TURTLEX == ORD(PEEK (236775 CHAR) ) 
END; {von TURTLEX} 


TURTLEY 
FUNCTION TURTLEY = INTEGERS 
BEGIN 
TURTLEY == ORD(PEEK (23678. CHAR) ) 


ENDS {von TURTLEY} 


SPOUT(C) 


PROCEDURE SPOUT(C = CHAR); 
BEGIN 
INLINE (#FD.#21,#3A,#5C, 
#DD-#7E-2:-#D7) 
END; {von SPOUT} 


POS(LINE. COLUMN) 


PROCEDURE POS(LINE. COLUMN : INTEGER); 
BEGIN 

SPOUT (CHR (ор) )4 

SPOUT CCHR(LINE)) 5 

SPOUT CCHR (COLUMN) ) 
ENDS {von POS} 


ВЕЕРЕК(А- B) 


PROCEDURE ВЕЕРЕККА- B : INTEGER); 

BEGIN 
INLINE C#DD,#bE.2,4DD;5 
#Lb-3-#D)D-#5E-4-#DD-#56: 
5-ЯСр-%В5-3-%Ғ3) 

END: {von BEEPER} 


BEEP (FREQUENZ, INTERVALL) 


PROCEDURE BEEP(FREQUENZ : INTEGER; INVERVALL : REAL); 
VAR 
I : INTEGER; 
BEGIN 
IF (FREQUENZ<14000) AND (FREQUENZ>OR (FRENQUENZ = DD 
IF FREQUENZ = П 
THEN FOR I := 1 TO ENTIER 
(12000 ж INTERVAL) DO 
ELSE BEEPERCENTIER(CFRENQUENZ ж INVERVALL) 4 
ЕМТТЕКСЧЗ?500 / FREQUENZ - 30-125))4 
FOR i := 1 TO 100 DO 
END: {von BEEP} 


CHECK(X4 Y) 


PROCEDURE CHECK(X«Y : INTEGER); 
BEGIN 
IF (X « MINX) OR (X > MAXX) THEN 
BEGIN 
URITE(' x out of limits with '4 X); 
HALT 
END: 
IF (Y « MINY) OR (Y > MAXY) THEN 
BEGIN 
ШКТТЕС" y out of limits with '4 Y); 
HALT 
END 
END: {von CHECK} 


THEN 


PREPAREPEN 


PROCEDURE PREPAREPENS 
BEGIN 
SPOUT (СНК (20) ) 
SPOUT CCHRCPENMODE) 33 
SPOUT (СНК (22) ) а 
SPOUT (СНК СРЕММОРЕ ) ) 5 
END; {von PREPAREPEN} 


PLOT(X4 Y) 


PROCEDURE PLOT(X.Y : INTEGER): 
BEGIN 
CHECK (X3 325 
PREPAREPEN3 
INLINE (#FD1#215,#3A.#5C3 
#DD#4b,2.8DD #4E 4s 8CD 4 
#Е5-#020) 
END; {von PLOT} 


LINE1(X. Y+ SX. SY) 


PROCEDURE LINE1(X. Ya SX. SY : INTEGER); 


BEGIN 
INLINE(RFD4. #01. #3A, #5C, 
#DD. #56- о. #DD- #5Е. 4. #рр 
#4Ub. b. 8DD4 #4E, 8- #CD, 
"BA. #24) 

END: { von LINE1 } 


СТМЕСХ. Y) 
PROCEDURE (ТМЕСХ- Y : INTEGER): 
VAR 
SGNX. SGNY : INTEGERS 
BEGIN 
CHECK СХ + TURTLEX, Y + TURTLEYO 3 
PREPAREPENS 
IF X >= П THEN SGNX == 1; 
ELSE SGNX := -1а 
IF Y >= D THEN SGNY := -15 
ELSE SGNY == -15 


СТМЕТСАВУСХ)- АВ5(Ү)- 56МХ- SGNY) 
END: { von LINE P 


INK(C) 
PROCEDURE INK(C : INTEGER); 
BEGIN 
IF (С >= D) AND (C < 8) THEN 
BEGIN 


SPOUT CCHR(16)) 4 
SPOUT CCHR(C) ) 
END 
END. 4 von INK } 


PAPER(C) 


PROCEDURE PAPER(C : INTEGER); 
BEGIN 
IF (C >= D) AND (C < 8) THEN 
INLINE(1. 0. 3. #215 0. #58, 
#0р. #?E+ 8. 74 7a 74 #5Р- 
#76. Eb. #C?, *B34. 877. 
#23, #0B, $78. *Bl. #20, 
#EE) 5 
SPOUT (CHR(17)) 5 
SPOUT (CHR(8)) 
END; 4 von PAPER ? 


PENDOWN(C) 
PROCEDURE PENDOWN(C : INTEGER): 
BEGIN 

PENMODE :- 0; 

ТМКСС) 


ENDS + von PENDOWN } 


PENUP 
PROCEDURE PENUPS 
BEGIN 

PENMODE := 15 


END: 4 von PENUP + 


TURNTO (А) 
PROCEDURE TURNTOCA : INTEGER); 
BEGIN 

ANGLE == Аз 


ENDS 4 von TURNTO } 


SETOX4 Y) 
PROCEDURE SET(X. Y = INTEGER); 
BEGIN 

XCOR == X45 YCOR == Y; 


END; { von SETXY T+ 


МОМЕ (І) 


PROCEDURE МОМЕ (І : INTEGER); 
BEGIN 
РЦОТСХСОК- YCOR) 45 
LINECROUND(CI ж COS(ANGLE ж PI / 1800). ROUND(I ж SIN(ANGLE ж PI / 180)))4 
SETXYOXCOR + ROUNDCI ж COS(ANGLE ж PI и 180054 YCOR + ROUND(I ж SIN(ANGLE x 
PI / 180)))5 
END: + von MOVE P 


VECTOR (CW. B) 


PROCEDURE УЕСТОК(Ш- B : INTEGER) 5 
BEGIN 

TURNTOCW) 5 

MOVE (В) 
ENDS 4 von VECTOR > 


TURN(CA) 
PROCEDURE TURN(A : INTEGER); 
BEGIN 

ANGLE == (ANGLE + A) MOD 360 


ENDS {£ von TURN P 


MOVETO(X. Y) 


PROCEDURE MOVETO(X. Y = INTEGER); 
BEGIN 

LINE(X - ТИКТІЕХ- Y - TURTLEY) 
ENDS + von MOVETO } 


СОММЕСТ(Х1- Yl. Хе. Үг) 


PROCEDURE СОММЕСТ(Х1- Yla Xe. Ye 
BEGIN 

РІ0Т(Х1- Yl); 

МОМЕТО (Хе. Ye) 
ENDS 4 von CONNECT } 


BORDER (В) 


PROCEDURE BORDER(B : INTEGER); 
VAR 
I : INTEGERS 
BEGIN 
IF (B > D) AND (B < 128) THEN 
FOR I := D TO B DO BEGIN 
PLOTCMINX + I+. MINY + I); 
MOVETO(MAXX - I+. MINY + I); 
MOVETO(MAXX - I+. MAXY - I); 
MOVETO(MINX + I+. MAXY - I); 
MOVETO(MINX + І. MINY + I); 
END 
END: + von BORDER 2 


ELIPSOID(X. Y+ К1- Re) 


PROCEDURE ELIPSOID(X. Y = INTEGER, 
VAR 

МЕШХ- NEUY. I = INTEGERS 
BEGIN 


FOR I :- D TO 360 DO BEGIN 


NEWX == X + ROUND(R1 ж SIN(T))5 
NEWY == Y + ROUND(R2 ж COS(T))45 
PLOT(NEWX, NEWY) 


INTEGER); 


Rha 


Re 


REAL) 5 


END 
ENDS { von ELOPSOID } 


PROCEDURE CIRCLE(X« Y+. R : INTEGER) 4 
BEGIN 

ELIPSOID(OX4. Ya Ra R) 
ENDS 4 von CIRCLE } 


VIELECK(X Y+. SEITE. ЕСКЕ) 


PROCEDURE VIELECK(X, Y+. SEITE. ECKE 
VAR 
K = INTEGERS 
BEGIN 
SETXY (Xa Y); 
FOR K := D ТО ECKE DO 
BEGIN 
MOVECSEITE) 5 
TURN(360 DIV ЕСКЕ) 
END: 
ENDS + von VIELECK } 


АКСК(К- Т) 


PROCEDURE АКСК(К- T = INTEGER); 
VAR 
I : INTEGERS 
BEGIN 
FOR I := 1 TO T DO 
BEGIN 
MOVECR) а 
TURN(1) 
END 
ENDS + von ARCR P 


INITTURTLE 


PROCEDURE INITTURTLES 
BEGIN 
PAGES 
TURNTO(O)5 
PAPER(1)5 
SETXY (1275 87): 
PENDOUN(CE) 
ENDS £ von INITTURTLE ++ 


INTEGER); 


Appendix 7 HiSoft Pascal Ver. 1.7M 


А.7.1 Relocatable Compiler 


А.?.Р Choice of 32 or b4 column mode 


A-?-3 More Flexible Arrays ОҒ Type CHAR 


Appendix 8 HiSoft Pascal on the Timex/Sinclair 20b8 


A.8.1 Creating A Backup 


Load HP from tape and answer the 'Top OF КАМ! etc. messages normally. 
Return to BASIC using the editor's B command - hit enter twice. 
Use SAVE "HPTIMEX" CODE 26990-17890 to save Pascal to tape. 


+ UJ П k 


You can subsequently use LOAD "" CODE to reload the compiler into the 
Timex but note that you must then enter it only via RANDOMIZE USR 265900 
for a cold start or RANDOMIZE USR 26995 for a warm start 


A-&-2 Source Code Compatibility 


Source code from the ZX Spectrum HiSoft Pascal and the Timex Sincalir 20b8 
implementation are interchangeable. However; before compiling. the source code 
needs to be scanned for instance of PEEK. РОКЕ- ШЕК & INLINE and adjusted where 
necessary for the Timex Sinclair 20b8 ROM. 


A-&-3 1/0 Functions 8 Compatibility 


The Timex Sinclair 20b8 has only tape 1/0 capability for saving and loading and 
compiling source code. 


A-&-4 Compiling Source Code 


Source code is compiled and saved to tape with the T command- Object code is 
compiled to and run from a fixed location- It is executed by a RANDOMIZE USR 
27000 in BASIC. 


А.8.5 Тһе Timex-Sinclair 20b8 Insert 


НТООЕТ PASCAL IMPLEMENTATION NOTE 
TIMEX SINCLAIR 2068 


Loading Hisoft Pascal From Tape. 


Unpack the cassette tape from its case and load it into your cassette recorder with 
Side A uppermost. On your TIMEX make sure that you are in Keyword Entry Mode and then 
enter: 


LOAD “(press J and then " twice) 


Now press PLAY on the tape recorder: first a small BASIC loader will be loaded, this will 
execute automatically and proceed to load the Hisoft Pascal (HP) code. If a tape error is 
detected then stop the tape, rewind to the start, press NEW (on the ‘A’ key) on the TIMEX 
and then enter LOAD "" again. If you still get a tape loading error then try adjusting 
the volume on your tape recorder; if errors persist please return the tape to Hisoft 
and we will replace it. 


Once the HP code has been loaded it will execute automatically and the message "Тор of 
RAM?’ will be displayed — now consult Section 0.0 of the Hisoft Pascal 4T Programmer's 
Manual for details of how to proceed. 


Implementation on the TIMEX. 


The TIMEX is a rather unusual computer and, to a certain extent, the implementation of 
HP reflects this. The various control codes discussed in the Programmer's Manual are 
reached as follows on the TIMEX: 


RETURN via the ‘ENTER’ key. 

cc via CAPS SHIFT and 1. 

CH DELETE i.e. CAPS SHIFT and 0. 

CI via CAPS SHIFT and 8. 

CP via CAPS SHIFT and 3 enabling ‘L‘isting of text to printer. 
cx via CAPS SHIFT and 5. 

cs via CAPS SHIFT and SPACE. 


The TIMEX keyword entry scheme is not supported (we see this as a positive advantage), 
instead all text must be inserted using the normal alphanumeric keys. Using SYMBOL 
SHIFT and any key (except D will always reach the ASCII symbol associated with that key 
and not the keyword e.g. SYMBOL SHIFT T gives ‘>’. To obtain “C and 27 you should use 
SYMBOL SHIFT F and SYMBOL SHIFT G respectively. You must not use the single symbols 
<=, <> and >= ; instead these should be entered as a combination of the symbols <, > and 


The editor comes up in upper case mode, this may be toggled in the normal way using CAPS 
SHIFT and 2. 





You have control over the temporary attributes of the various character positions on 
the screen through the use of the standard control codes (e.g. WRITE(CHR(17),CHR(4)) will 
make the ‘paper’ green) but you cannot change the permanent attributes. If, while using 
these control codes, an invalid sequence is detected then the message ‘System Call 
error’ will be displayed and the execution aborted. Note that certain CHR codes are 
interpreted by HP (e.g. CHR(8) is taken as DELETE) and thus these codes cannot be passed 
directly to the Timex ROM - use the SPOUT procedure (See later in this note) if you want 
to write CHR codes without interpretation by HP. 


When dumping text or object code to tape you must be careful to have the tape recorder 
in RECORD mode before beginning the dump. 


If you have used the ‘T’ranslate command to save the object code and runtimes on tape 
then to load the program simply enter LOAD " CODE from within BASIC. To execute the 
program enter RANDOMIZE USR 27000 from within BASIC. 


From within BASIC, you can re-enter the HP editor in one of two ways: enter RANDOMIZE 
USR 26995 to perform a warm start i.e. preserving the Pascal program or RANDOMIZE USR 
26990 to do a cold start, re-initialising the Pascal and clearing any existing Pascal 
text. 


The Timex printer is supported via the use of the compiler 'P' option (see Section 3.2 of 
the Programmer's Manual) and via CHR(16) іп a WRITE or WRITELN statement. Note that, as a 
result, you cannot use CHR(16) within a WRITE(LN) statement to specify the INK colour — 
instead you can use СНК(15) to set the INK. 


Most printers are supported by Hisoft Pascal since printer output is always directed 
through stream 3. : 


Any return to BASIC from within Pascal will cause execution to pause — hit any key to 
accomplish the return to BASIC. This pause has been added to allow runtime error 
messages etc. to remain on the screen - the return to BASIC clears the screen. 

To make a back-up copy of HP proceed as follows: 

1. Load HP from tape and answer the 'Top OF RAM?' etc. messages normally. 

2. Return to BASIC using the editor's B command - hit ENTER twice. 

3. Use SAVE "HPTIMEX" CODE 26990,17890 to save the Pascal to tape. 

4. You can subsequently use LOAD "" CODE to reload the compiler into the Timex but note 
that you must then enter it only via RANDOMIZE USR 26990 (for a cold start) or RANDOMIZE 
USR 26995 (for a warm start). 

Note that you are authorised by Hisoft to make only one working copy. 


Please do not hesitate to contact us if you experience any difficulty with Hisoft Pascal 
— we can only solve the problems if we know what they are! 








TIMEX 2048 SOUND AND GRAPHICS WITH HISOFT PASCAL 





Hisoft Pascal for the Timex 2048 includes a Logo-style turtle graphics package with the 
same facilities as the ZX Spectrum version. (See page 76 in the Hisoft Pascal manual. 
This note gives details on controlling the sound and graphics capabilities of the TIMEX 
2068 using Pascal procedures from within Hisoft Pascal. 


1. Sound. 


The following two procedures (defined in the order given below) are required to produce 
sound with HP. 


(This procedure uses machine code to pick up its parameters and 
then passes them to the BEEP routine within the TIMEX КОМ.2 


PROCEDURE BEEPER (A, B : INTEGER); 


BEGIN 

INLINE(#DD, &5E, 2, #DD, #66, 3, {LD L,(IX+2):LD H,(IX+3) 2 
#DD, #5E, 4, #DD, #54, 5, {LD €,(IX+4):LD D,(IX+5) > 
#CD, #F3, 5, #F3) {CALL #3F3 = DI} 

END; 


{This procedure traps a frequency of zero which it converts into a period of 
silence. 

For non-zero frequencies the frequency and length of the note are 
approximately converted 

to the values required by the TIMEX ROM routine and this is then called via 
BEEPER.} 
PROCEDURE BEEP (Frequency : INTEGER; Length : REAL); 
VAR I: INTEGER; 


BEGIN 
IF Frequency=0 THEN FOR 1:=1 TO ENTIER(12000*Length) DO 


ELSE BEEPER( ENTIER(Frequency*Length), ENTIER(437500/Frequency - 30.125)) 


FOR I:= 1 TO 100 DO short delay between notes? 
END; 


Example of the use of BEEP: 


BEEP ( 262, 0.59) 
BEEP (0,1); {sounds middle C for 0.5 seconds followed Бу а one second silence.) 





2. Graphics. 


Three graphics procedures are given: the first plots a given (X,Y) co-ordinate 
whilst the second and third are used to draw lines from the current plotting 
position to a new position which is defined relative to the current plot position 
and which then becomes the current plot position. 


Both PLOT and LINE take a BOOLEAN variable, ON, which, if TRUE, will cause any 
point to be plotted regardless of the state of the pixel in that plot position or, 
if FALSE, will cause any pixel already present at the plot position to be flipped 
i.e. if on it becomes off and vice versa. This effect is identical to that caused 
by the TIMEX OVER command. 


{A procedure that mirrors the BASIC PLOT command. Simply plots the point X,Y ON 
or OFF depending on 
whether the first parameter is TRUE or FALSE.> 


PROCEDURE PLOT( ON : BOOLEAN; X, Y : INTEGER); 
BEGIN 


ТЕ ON THEN WRITE( CHR(2D, CHR(O)) 
ELSE WRITE( CHR(2D, СНЕС); 


INLINEGIFD, #21, #3A, #5C, {LD IY,#5C3A > 
*DD, #46, 2, #DD, #4E, 4 {LD B,CIX+2):LD C,OX*4) > 
«CD, #3E, #26); € CALL #263E ;ROM PLOT routine? 
END; 


Called by the LINE procedure, LINEI is used to pass the correct arguments to 
the DRAW routine in the TIMEX ROM.» 


PROCEDURE LINE1( X, Y,SX,SY :INTEGER); 


BEGIN 

INLINE(#FD, #21, #3A, 5C, {LD IY,#5C3A > 
#DD, #56, 2, #00, #5Е, 4, сір D,G(X+2): LD E,IX*4) 2 
#DD, #46, 6, #DD, #4E, 8, {LD B,(IX+é): LD C,(IX+8) > 
#CD, #13, #28) € CALL #2815 ЖОМ DRAW routine.} 

END; 


{LINE draws a line from the current plot position (x,y) to (X+x,Y+y). The line 
may Бе ‘on’ or ‘off’ depending on the value of the BOOLEAN parameter ON.» 


PROCEDURE LINE( ON : BOOLEAN; X, Y :INTEGER); 


VAR 
SGNX, SGNY : INTEGER; 


BEGIN 
IF ON THEN WRITE( CHR(21), CHR(O)) 
ELSE WRITE( CHR(21), CHR(1)); 


IF X<O THEN SGNX:--1 ELSE SGNX:=1; {The DRAW routine that is to be called) 
IF YXO THEN SGNY:--1 ELSE SGNY:=1; {within LINE1 needs the absolute values? 


{of X and Y and their signs.) 
LINE1( ABS(X), ABS(Y), SGNX, SGNY) {Plot the line.> 
END; 


Example of the use of PLOT and LINE: 


PLOT( ON, 50, 50 ); 
LINE( ON, 100, -50); {draws a line from (50, 50) to (150, оз 


5. Output through the ROM. 


There are occasions where it is useful to output directly through the TIMEX ROM 
RST #10 routine rather than use WRITE(LN). For example, when using the PRINT AT 
control code - this code should be followed by two 8 bit values giving the (X,Y) 
co-ordinate to which the print position is to be changed. However, if this is done 
using a Pascal WRITE statement then certain values of X and Y (e.g. 8 which is 
interpreted by HP as BACKSPACE) will not be passed to the ROM and thus the print 
position will not be correctly modified. 


You can overcome this problem by using the following procedure: 
{SPOUT outputs the character passed as a parameter directly through the TIMEX 
ROM RST #10 routine and thus avoids any trapping by HP of the value output.} 


PROCEDURE SPOUT ( C : CHAR ); 


BEGIN 

INLINE(#FD, #21, 45A, #5C, {LD IY,#5C3A > 
#DD, #7E, 2 сир A,{IX+2) > 
#07 › {RST $102? 

END; 


Example of the use of SPOUT: 


SPOUT ( CHR(22) ); SPOUT ( CHRIS) ); SPOUT ( CHR(13) 5; {sets the print position to line 
8, column 13.5 


Hisoft hope that you will find the above routines useful and that they will 
enhance the way in which you use Hisoft Pascal. As usual, we welcome any 
comments regarding the information given in this sheet. 


ISOF 


22222180 High Street North · 
+- Dunstable, Beds. LU6 ТАТ. 
Tel: (0582) 696421 








А.8.Һ Sound, Graphics, TURTLE 


{This is the TURTLE package for the 
T/S 20b4& implementation of 
HiSoft Pascal} 


VAR 
XCORAYCOR; HEADING: REALS 
PENSTATUS: INTEGERS 


SPOUT (С) 


PROCEDURE SPOUT(C? CHAR) 4 

BEGIN 

INLINE (#FD,#21,#3A,#5C, #DD.#7E.2,#D?7) 
END; 


CHECK(X.Y) 


PROCEDURE CHECK(X,Y: INTEGER) з 
BEGIN 
IF (Х>г55) ОК (Х<0) OR (Ү>175) OR (Ү<П) 
BEGIN 
WRITE C'Out of limits')5 
HALT 
END 
END; 


PLOT(X.Y) 


PROCEDURE PLOT(X«Y: INTEGER) 5 
BEGIN 

CHECK(X«Y)2 4 
SPOUT(CCHR(CBDD)2 а 
SPOUTCCHRC PENSTATUS))5 
SPOUTCCHR(21) 235 

SPOUT СНК CPENSTATUS) 2:3 
INLINE (#FD,#21,#3A,#5C, 
HDD #4b 2 ADD FYE Ч. HCD 
#3E,#2b) 

END; 


LINELCX4Y4SX4SYO 


PROCEDURE LINEL(CX4Y4sSX4SSY: INTEGER) 5 
BEGIN 

INLINE (#FD,#21,#3A,#5C, 
#DD-#5b6-2-#DD-#5E-4-#DD: 
#4b-b-#DD-#4E-8-#CD: 

#13,#28) 

ENDS 


THEN 


LINECON«:X«Y) 


PROCEDURE LINE (ON: BOOLEANS X,Y: INTEGER) 5 
VAR SGNX4SGNY: INTEGERS 

BEGIN 

CHECK CROUND (X+XCOR) 4ROUNDCY*YCOR22 5 
SPOUT (СНК (20) ) 2 
SPOUTCCHRCPENSTATUSD) 3 
SPOUTCCHR(21) ) 5 

SPOUT CCHRCPENSTATUS) ) 3 

IF Х<П THEN 56МХ:--1 ELSE SGNX:=15 
ТЕ Ү<П THEN 56МҮ:--1 ELSE SGNY:=15 
LINELCABS(X) - АВУ (СҮ) -56МХ- SGNY) 
END; 


INK(C) 


PROCEDURE INK(C:INTEGER); 
BEGIN 

IF (C>=0) AND (С<8) THEN 
SPOUTCCHRCIB))3SPOUTCCHRC С)) 
END; 


PAPER(C) 


PROCEDURE PAPER(C:INTEGER): 

BEGIN 

IF (C>=D) AND (C<&) THEN 
INLINE(1.D.3.#Pl1.D.#50. 
80D487E4247574 2 48 5F S 87E 
#ЕЬ-#С7- #83. #77. 823. 80B. 
#78,4B1,#20,4EE) 5 

SPOUT (СНК (27) ) 3SPOUTCCHRC 8) ) 5 

ENDS 


COPY 


PROCEDURE COPYS 

BEGIN 

INLINE (#FD,#21,#3A,#5C, 
#FD,#CB.#01,#CE4 
#CD,#02,#0A,#F D4 
ҰСВ-%П1-%8Е-%Ғ3) 

END; 


PENDOWN(C) 


PROCEDURE PENDOWN(C: INTEGER) 3 
BEGIN 

PENSTATUS:=05 

INK (С) 

END; 


PENUP 


PROCEDURE PENUPS 


BEGIN 

PENSTATUS:-1 

END; 

PROCEDURE SETHD(A:REAL); 
BEGIN 

HEADING:=A 

END; 

SETXY(X.Y) 

PROCEDURE SETXY(X.Y:REAL)5 
BEGIN 

XCOR?=X4 

YCOR: =Y 

END; 

FWD(L) 


PROCEDURE FWDC(L:REAL)4 

VAR МЕШХ-МЕШУ:КЕА! 5 

ВЕСТМ 

PLOT(ROUND(XCOR) 4xROUNDCYCOR22 5 

NEWX?=XCOR+L*COSCHEADING* 3-1415926b/140) 5 

NEWY ?=YCOR+L*XSINCHEADING* 3-141592b/140) 5 

LINE (TRUE ROUND CNEUX) -ROUND (CXCOR) SROUNDCNEUYO) - ROUND (ҮСОК) ) 
XCOR?=NEWX4 

YCOR:=NEWY 

END; 


BACK 


PROCEDURE BACK(L:REAL2 5 
BEGIN 

FUD(-L) 

END; 


TURN(A) 


PROCEDURE TURN(CA:REAL2 5 
BEGIN 
HEADING:-HEADING-*A: 
END: 


VECTOR(CA«L) 


PROCEDURE VECTOR(A«SL: REAL) 5 
BEGIN 

SETHD(A) 5 

FUD(L) 

END; 


RIGHT (А) 


PROCEDURE RIGHT(A:REAL) 4 
BEGIN 

TURN(-A) 

END: 


LEFT(A) 


PROCEDURE LEFT(CA:REAL2 5 
BEGIN 

TURN(A) 

END; 


АКСКСК-А) 


PROCEDURE ARCRC(R:REALS A:INTEGER) 4 
VAR І: INTEGERS 


BEGIN 

FOR І:=1 TO A DO 
BEGIN 

FWDCR) 45 TURN(1) 
END 
END; 
TURTLE 
PROCEDURE TURTLES 
BEGIN 

PAGES 

SETXY (127587)5 
SETHD(O)5 
PAPER(1)5 
PENDOUN(CE) 
END: 


Appendix 9 Additional FUNCTIONS & PROCEDURES 


А.Ч. Screen 1/0 


GOTO(X.Y) 
PROCEDURE GOTOXY(X. Y = INTEGER); 
{Places the cursor at screen position X,Y} 


BEGIN 
SPOUT (СНК (ов) ) 5 
SPOUT (CHR(Y))5 
SPOUT (CHR(X))4 
END; 


CLRSCR. Version 1 
PROCEDURE CLRSCR3 
{ Clears the screen and 
sets the cursor to the 
upper left of the screen } 
BEGIN 
PAGES 
SPOUT (CHR(22))5 
SPOUT (CHR(O))5 


SPOUT (CHR(O))4 
END; 


CLRSCR4 Version 2 
A different procedure to clear the screen 
PROCEDURE CLRSCR3 
£The following inline code is ZX Spectrum specific. 
It is a call to the CL ALL ROM routine which 

clears the screen and initiates the new attributes. 
For the Timex/Sinclair 2068 use: #CD. #EA- 8085.) 
BEGIN 

INLINE(GRCD4 #AF. #0D)5 
END: 


The following program will change the permanent screen attributes. 


CAPSLOCK (TOGGLE) 
PROCEDURE CAPSLOCK( TOGGLE : BOOLEAN); 
t 
Purpose: 
To safely switch the caps lock on or off 
without disturbing the state of other flags. 
History: 
Inline code from: Best of PCW 
software for the Spectrum, р. ора. 
Pascal implementation by: 
David Solly 
Cl September 1998. 
L 
BEGIN 


IF TOGGLE = TRUE THEN 
ІМІІМЕ(%Р1-%ҺА-%5С-%СВ-%2Е) 
ELSE 
INLINE (#215,4#6A,#5C,#CB,#9E) 5 
ENDS {Procedure CapsLock} 


PROCEDURE SCREENLD(CNAME : АККАҮГ1..81 OF CHAR); 
t 


This is a procedure the mimics the SCREENS 
function in BASIC and will load a screen 
image file from either a tape or miro-floppy: 


History: 
Created by David Solly: 
в August 2013. 
L 


BEGIN 
ТТМСМАМЕ- #4000)5 
ENDS {Procedur ScreenLD} 


PROCEDURE SCREENSV(CNAME : АККАҮГ1..81 OF CHAR); 
t 


This is a procedure the mimics the SCREENS 
function in BASIC and will save a screen 
image file to either a tape or micro-floppy: 


History: 
Created by David Solly 
в August 2013. 

L 


BEGIN 
ТООТ МАМЕ. #4000, #21В00) х 
END; {Procedure ScreenSV} 


PATTRIBUTES (INK,PAPER.BRIGHT.FLASH) 
PROCEDURE РАТТКІВЦОТЕЎ (ІМК. РАРЕК = INTEGER: BRIGHT, 


{Changes the permanent attributes 
colours according to the parametres 
input by the user-} 


CONST 
ATTRP = #5C8D5 


VAR 
LPATTS = CHARS 
LI : INTEGERS 


BEGIN 


IF (ІМК IN ІП..710 THEN 
LI := INK 
ELSE 
BEGIN 
WRITELNS 
URITELN('Bad ink color')54 
HALT 


FLASH 


BOOLEAN) 5 


END: 


IF (PAPER IN ГП-.?1) THEN 
LI ге LI + (PAPER ж а) 
ELSE 
BEGIN 
WRITELNS 
URITELN('Bad paper color'2i 
HALT 
ENDS 


{Switch on the FLASH and BRIGHT attributes 
if requested} 


IF FLASH = TRUE THEN 
LI := LI + #80; 

IF BRIGHT = TRUE THEN 
LI := LI + 84D; 


{Convert from an integer value, 
character value, (1 byte)} 
LPATTS := CHR(LI)5 


(2 bytes) to a 


POKECATTRP. LPATTS) 4 

{The following inline code is ZX Spectrum specific. 
It is a call to the CL_ALL ROM routine which 

clears the screen and initiates the new attributes. 
For the Timex/Sinclair 20b& use: #CD. НЕА- $8085.) 
INLINE (#CD., 


ФАР #0D)5 


END; 


Appendix 


The following is a collection of screen & graphics routines from the book: 


of PCW software for the Spectrum and are all ZX Spectrum specific. 


CIRCLE(X-Y-R) 


PROCEDURE СІКСІЕ(Х- 


BEGIN 


POKE (езьё2 + 
15C81 = 
POKE (23728: 
POKE (23729; 


INLINE (#D4, 
%ВП- 
#CD5 
INLINE C#CD, 
82D. 


END; 


DISC(X-Y-R) 


Ya 


ORD(R)); 


ORD(X))4 
ORD(Y))5 


#Е5- 
#5С- 
828. 
#28: 
823. 


#09 
СО 
#2D: 
Нора 
#09. 


{PROCEDURE CIRCLE} 


INTEGER); 


Unused RAM for MC use-} 
{5CBO} 
{5CB1} 


ЯЗА- 
#285 
#ЗА- 
#С}- 
НЕТ 


Нора 
#415 


83A. 
85C)1 


%В1- 


#D9)5 


#5C5 


Best 


PROCEDURE DISC(X. Ya R = INTEGER); 


VAR 
I : INTEGERS 


BEGIN 
FOR I := R DOUNTO 1 DO 
СІКСІЕ(Х- Ya I); 


ENDS {PROCEDURE CIRCLE} 


РІ ОТ(А-В) 
PROCEDURE PLOT(A; B : INTEGER); 
BEGIN 
POKE (237286, ORD(A))5 +5СВП} 
POKE (23729, ORD(B))5 {5CB1} 


INLINE C#ED, #08. #В0. #5C, 
#CD, #Е5. #22); 


ENDS {PROCEDURE PLOT} 


DRAWBY (X5Y) 
PROCEDURE ФКАШВУСХ- Y = INTEGER); 
BEGIN 


IF X < 0 THEN POKE(232%b. ORDC#FF))5 +5ВПП} 
IF X >= 0 THEN POKE (23246. ORD(1))5 


IF 
IF 


D THEN РОКЕСоЗОЧ?. ORDC#FF))5 {5B01} 


Y < 
Y >= 0 THEN POKE(23297?, ORD(1))5 


POKE (23726, ORD(ABS(X)))5 

POKE (23724, ORD(ABS(Y)))5 

INLINE C#D9., %ЕБ- #р9. ФЕ). 
#4B, #BO. #5C, #ED. #5B, #00. #5B, #CD, 
#ВА. #24, SDH. %Е1- #D9)5 


ENDS {PROCEURE DRAWBY} 


LINE (X15,Y15X2,Y2) 
PROCEDURE LINE(X1. Ү1- X24 Ye : INTEGER): 
BEGIN 
POKE(CPB3b774 ORD(X1))5 {5C7D} 
{X coordinate of last pixel desplayed} 
POKE (23678. ORD(CY120)5 {5C7E} 
{Y coordiante of last pixel desplayed} 
DRAUBY(CX2B-X14 Ye-Y1)5 


ENDS {PROCEDURE LINE} 


FILL (Х.У. Хе. ўс. ІМК) 
PROCEDURE FILL(X1. Yl4 X2- Yer INK : INTEGER); 


VAR 
I : INTEGERS 


BEGIN 
WRITELN(CHR (1b). CHRCINK))5 
FOR I :- Xl TO Xe DO 
BEGIN 
РІ0Т(1- Yl); 
ФКАШВУСО- Ye-Y1)5 
END: 


ENDS {PROCEDURE FILL} 


A-9-2 User Defined Graphics (UDGs) 


t 
This is a HiSoft Pascal Function. 
that can only be used in 31 column mode. 
Compatible with ZX Spectrum & T/S 20b8. 


Function created by David Solly 
July lei 1998 


LOADUDG (LCi LGO,LG1,LG62,L63,LG4,LG65,LGb,4LG?7) 


FUNCTION LOADUDG(LC = CHARS 60+. 161- бе. 163- 6ч. 165- LGb. LG? 
CHAR 


£LC is the location of the UDG - Graphic A through U 
LGO--LG? holds the 7 elements of each UDG} 


VAR 
GC : CHARS {To hold character of the UDG when found} 
LOC : INTEGERS {To hold the UDG start address} 
BEGIN 
{Find the UDG to define 
UDGs start at CHR(L44)4 i.e. ? characters after "А! and are 
usually referred to as Graphic A. Graphic B -- Graphic 0.2 


GC :- CHR(ORD(LOO) + ?9) 


{Find how many characters it is into the alphabet} 
LOC := ORD(LC) - ORD('A'); 


{Calculate the address of the lst element in the 
UDG buffer 


Note: The start of the UDG buffer is b5b38d but Hex notation 
must be used here to avoid a 2's compliment error.) 


INTEGER) 


LOC :- 


(LOC ж B) + #FF585 


{Poke lst element of the UDG into its memory location 
then add 1 to LOC for each additional element} 


POKE(CLOC. 
Loc :- 
POKE(CLOC. 
Loc :- 
РОКЕ(10<- 
LOC :- 
POKE(CLOC. 
Loc :- 
POKE(CLOC. 
Loc :- 
POKE(CLOC. 
Loc :- 
POKE(CLOC. 
Loc :- 
РОКЕ(10<- 


LOADUDG := 665 


END; 


А.9.3 Character Sets (Fonts) 


This program demonstrates how a different character set 
into the ZX Spectrum and Timex Sinclair but only when it is running in 31 
The character set must be loaded into a global variable. 


column mode. 


This works very well with the ZX Microdrive: 


160): 
LOC + li 
161): 
LOC + li 
(68): 
LOC + li 
163): 
LOC + li 
LG4)4 
LOC + li 
LG5)5 
LOC + li 
LGb)31 
LOC + li 
LG?)4 


however, 


to build a library, 


(Font) may be loaded 


it is 


necessary to load each character set from tape then save to a stringy floppy 
the program will halt with an invalid 


using the TOUT() 


file type error message. 


program below. 


procedure. 


PROGRAM CHRSETLOADERS 


1 


Otherwise, 


This is a Hisoft Pascal Program for the 


ZX Spectrum, 


Purpose: 


Timex/Sinclair 2068 or 280 Emulator. 


To load a user defined character set from 
tape or microdrive and activate it. 


Special note to HiSoft Pascal 1.7М users: 
This program must be compiled in 31 column 


mode. 


History: 


Program created by David Solly 


3 April 1998. 
Revised: 


20 March 1999. 


Such a procedure can be easily integrated into the 


CONST 


Chars = 236065 
{Chars holds the address of the system variable 
CHARS which in turn points to the location either 
in ROM or RAM where the current character set is 
located. 
The value stored in CHARS is always 25b bytes 
less than the actual start location of the 
current character set.) 


VAR 
{The program requires the following global variables. 


CharSet = ARRAY [D..??D] OF CHARS 
{Reserve space in RAM for the new character set} 


FileName : ARRAY [1..127 OF CHARS 
{Ап array for holding the file name of the 
character set to be loaded} 


StartAddr. {To hold the start address of the 
new character set} 
I {A loop counter} 
INTEGERS 


BEGIN {MAIN PROGRAM} 

PAGES {Clear the screen} 

URITELN(C'Uhat is the name')4 

URITELN('of the character set to load?!) 
URITELN('(12 characters раддеч)")а 
WRITELNS 

ШВІТЕ ('> ')4 


READLN: {Required іп HS Pascal} 
READ (FileName) 5 


{Load in the character set} 


TIN(FileName. ADDR(CharSet))4 


StartAddr := ADDR(CharSet)5 


{Poke location of new character set 
into the system variable CHARS} 


POKE(Chars. StartAddr - 256)5 


{Print the new character set 
from space to UDG-U} 


FOR I :- 32 TO 1ЕЧ DO 
BEGIN 

ШКІТЕССНК (І). ! ")а 
END; 


WRITELN; WRITELNS 


URITELN('End of test')4 


END. 
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